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FOREWORD 


This  report  was  originally  prepared  by  Analytical  Services  &  Materials,  Inc.,  Hampton 
Virginia  for  AFRL/VASE,  Wright-Patterson  Air  Force  Base,  Ohio  under  contract  F33615- 
94-D-3212  “Development  of  Structural  Integrity  Analysis  and  Verification  for  Aircraft 
Structures."  The  government  contract  manager  was  Mr.  James  A.  Harter,  AFRLA/ASM. 

The  work  performed  under  this  report  (Delivery  Order  001 1 )  was  performed  by  Analytical 
Services  &  Materials,  Inc.  personnel  located  at  the  AFRLA/ASM  Fatigue  and  Fracture 
Test  Facility,  Bldg.  65,  Area  B.  The  authors  of  this  report  were  Mr.  Alexander  V.  Litvinov 
and  Mr.  James  A.  Harter. 
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1.  General  Instructions 


NOTE:  This  capability  requires  a  certain  amount  of  programming  knowledge  and  may 
not  be  something  that  everyone  will  want  to  try.  Please  read  the  all  of  the  information 
provided  in  the  following  sections  before  attempting  to  use  this  feature. 

The  server  version  of  AFGROW  for  Windows  95/98/NT4/ME/2000®  may  be  used 
interactively  (as  always)  or  by  other  windows  programs.  Microsoft's  Component  Object 
Model  (COM)  Server  technology  has  been  added  to  AFGROW  to  allow  users  to  perform 
multiple  crack  growth  analyses  and  have  the  results  sent  directly  to  the  calling  program. 
Any  Windows  compatible  application  development  software  may  be  used  (as  long  as  it 
supports  the  Microsoft  COM  standard).  These  development  platforms  include:  Visual 
BASIC  5.0,  Visual  Basic  for  Applications  (Office  97),  Visual  C++  5.0,  and  Borland  C++ 
Builder  4.  Visual  BASIC  for  Applications  (VBA)  is  probably  the  most  widely  available 
platform,  which  can  be  used  for  this  purpose. 

Before  using  the  server  from  another  windows  program,  AFGROW  MUST  be  executed 
at  least  once  as  a  stand-alone  program.  When  the  server  version  is  executed  for  the  first 
time,  Windows  will  recognize  that  it  is  a  COM  server  and  will  look  for  a  Type  Library 
Binary  (TLB)  file  ( afgrow.tlb )  and  register  AFGROW  as  a  COM  object  on  the  local 
machine.  Once  this  is  complete,  the  AFGROW  server  will  be  available  for  use  by  other 
COM  compatible  software. 

The  TLB  file  contains  detailed  information  that  other  programs  use  to  determine  which 
variables  and  subroutines  are  available.  When  the  AFGROW  server  is  updated  and  a 
new  version  is  downloaded,  all  references  to  the  previous  server  version  MUST  be 
updated. 

The  AFGROW  COM  server  consists  of  several  interfaces,  each  with  a  specific  purpose. 
There  are  too  many  options  available  in  AFGROW  to  use  a  single  interface.  The  details 
for  each  interface  are  given  in  sections  3  through15.  A  Microsoft  COM  interface  is  the 
vehicle  through  which  COM  objects  are  accessed.  An  interface  is  a  collection  of 
functions  and  variables  logically  grouped  together.  It  is  analogous  to  file  systems  and 
directories  on  a  hard  disk.  It  would  not  make  sense  to  put  all  of  the  files  on  a  hard  disk  in 
a  single  directory.  Interfaces  are  used  to  help  organize  the  COM  server. 

Each  AFGROW  COM  interface  includes  functions  that  allow  several  variables  to  be  set 
at  one  time.  These  functions  should  be  used  in  most  cases  to  avoid  errors  when 
variables  are  interdependent.  Individual  variables  may  be  set  independently,  but  users 
must  be  sure  to  understand  how  each  variable  is  used. 

Again,  remember  that  AFGROW  will  still  function  as  a  stand-alone  interactive  code  as  it 
has  in  the  past.  The  COM  capability  is  merely  an  addition  to  AFGROW,  which  we  hope 
is  useful. 

It  is  strongly  recommended  that  users  read  this  document,  in  its  entirety,  prior  to  using 
the  COM  capabilities  of  AFGROW. 
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2.  Using  AFGROW  with  Visual  BASIC  for  Applications 


Visual  BASIC  for  Applications  is  a  version  of  BASIC  that  Microsoft  distributes  with  its 
Office  software  suite  and  is  generally  used  to  manipulate  data  in  Excel  and  Access.  The 
following  discussion  will  address  the  use  of  VBA  in  Excel. 

First,  open  Excel  and  use  the  control  toolbar  to  create  any  desired  controls  to  be  used  in 
the  VBA  program  (i.e.,  a  pushbutton  control).  After  the  control(s)  are  established,  select 
the  view  code  button  on  the  control  toolbar.  At  this  point,  a  new  VBA  window  will  open 
showing  a  blank  subroutine  for  the  control  you  have  created.  When  creating  a  new 
program,  always  verify  that  the  AFGROW  server  is  referenced  by  selecting  the  tools, 
references  menu  item.  The  reference  window  will  be  opened  (figure  1 ). 

Refer  to  the  sample  source  code  provided  in  appendix  4  to  establish  the  reference  to  the 
AFGROW  server  application  interface  ( Dim  mAfgrow  As  at grow Application)  and  create 
the  afgrow.  object  (Set  mAfgrow  =  CreateObject("afgrow. application”)). 


References  -  VBAProject 


I  &valable  References: 

•  :-"H  r  : 

m  --  ----- 


V)  Visual  Basic  For  Applications 
S3  Microsoft  Excel  8.0  Object  Library 
S3  OLE  Automation 
59  Microsoft  Forms  2.0  Object  Library 

b  ActiveMovie  control  type  library 

□  API  Declaration  Loader 

□  Indeo  4  Type  Library 

□  internet  Explorer  Scripting  Object  Model 

□  IvAuto  1.0  Type  Library 

□  LicenseMgr  1 .0  Type  Library 

□  Marquee  Control  Library 

I  Mirrrxr^h  Arrpcc  P  n  nhw»rh  I  »hr. 

< 


-■  .  I 


Figure  1:  VBA  Tools,  Reference  Dialog  Box 


In  the  sample,  references  to  AFGROW  will  have  the  following  format  mAfgrow.***.  The 
reference  variable  name  doesn't  have  to  be  mAfgrow,  it  can  be  any  name  the  user 
chooses.  VBA  offers  quite  a  bit  of  real-time  help  while  the  code  is  being  written.  When 
the  period  in  the  afgrow  reference  is  typed,  VBA  automatically  opens  a  dialog  box  as 
follows: 
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i  =  3 

Set  mAfgrow  =  CreateObject ( "Afgrow. Application") 

Do  While  Sheetl. Cells (i,  2)  >  0 

mAfgrow. Model  =  Sheetl. Cells (i,  6) 

mAfgrow.| 

KiAfgro^lBetaCDrrection  |*J 

mAfgro^ConstAmplitudeSpectrum  -H 

:ells(i,  3)) 

mAf  gro  eS*  Cracklnitiation  1 

i) 

mAfgroce  CrackLengthA 

5) 

result  &  CrackLengthACConst 

finale,  finalKc,  finalA,  fine 

Sheetl1^1  CracklengthC 

Sheetl  &  CrackLengthCt 

Sheetl. Cells (i  +  14,  2)  =  Cycles 

Sheetl. Cells (i  +  14,  3)  =  mAfgrow. SMF 

i  =  i  +  1 

Loop 

mli  f  rt  rrvw  i  t* 

Figure  2:  Sample  Interface  Dialog 


The  dialog  box  above  lists  all  of  the  variables  and  subroutines  available  in  the  AFGROW  server 
application  interface.  Simply  double-click  on  any  selection  and  the  name  will  automatically  be 
appended  to  the  reference  name.  If  a  function  is  selected,  a  list  of  variables  and  the  value(s)  to  be 
returned  from  the  subroutine  will  be  indicated  as  soon  as  an  empty  space  is  entered  after  the 
subroutine  name.  Remember  that,  in  VBA,  when  the  parameters  passed  to  and  from  a  function 
are  grouped  inside  parentheses  VBA  expects  the  function  to  return  a  value.  If  the  function  DOES 
NOT  return  a  value,  do  not  use  parentheses  -  just  use  an  empty  space  followed  by  the  parameter 
list.  A  complete  list  of  all  variables  and  subroutines  available  in  the  AFGROW  server  may  be 
found  in  the  VBA  window  by  selecting  the  view,  object  browser  menu  (look  at  the  applications 
listed). 

Finally,  note  that  there  are  two  ways  to  execute  a  life  a  prediction  using  AFGROW  as  a 
COM  server.  The  first  way  ( RunFrozPredict )  is  used  in  the  example  since  it  returns 
several  variables  and  does  not  require  the  code  to  receive  messages  from  AFGROW. 
The  subroutine  is  referred  to  as  frozen  since  the  calling  application  will  be  frozen  (unable 
to  respond  to  user  requests)  until  the  prediction  is  complete.  The  other  way  ( RunPredict ) 
to  execute  AFGROW  requires  the  user  to  receive  messages  (or  events)  from  AFGROW. 

The  first  method  may  be  good  for  relatively  simple  cases  where  limited  information  is 
needed.  The  latter  method  ( RunPredict )  is  much  more  flexible  and  is  recommended  for 
most  practical  uses. 

The  example  with  events  (or  messages  -  see  appendix  5)  is  written  very  differently  than 
the  example  without  events.  There  is  no  need  to  declare  (or  dimension)  the  AFGROW 
output  variables  since  this  job  is  done  by  VBA  in  the  mMgrow_PredictFinished  call.  VBA 
constructs  the  subroutine  automatically  after  the  line:  Public  WithEvents  mAfgrowAs 
At grow.  Application  is  entered.  After  entering  the  line,  select  afgrow  (or  whatever  name 
you  have  chosen)  on  the  left-hand  combo  box  above  the  window  where  the  program  is 
displayed.  After  the  application  name  is  selected,  a  list  of  available  routines  will  be 
displayed  on  the  right-hand  combo  box.  Select  PredictFinished,  and  the  routine  will  be 
added  to  the  code.  The  other  difference  is  that  the  code  must  wait  for  the 
PredictFinished  event  before  the  next  run  can  be  started.  Do  not  perform  the  RunPredict 
routine  inside  a  while  loop  -  the  code  will  not  be  able  to  detect  the  PredictFinished  event 
because  it  would  be  busy  executing  the  loop.  In  the  example  code,  the  first  call  to 
RunPredict  is  made  from  the  initial  button_click,  but  the  subsequent  calls  are  made  from 
the  PredictFinished  routine  which  is  triggered  after  the  PredictFinished  event  is  detected. 
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Any  time  a  call  to  RunPredict  is  made,  the  code  should  be  waiting  for  an  event,  and 
therefore  not  be  executing  other  commands  at  the  same  time. 

The  example  using  the  Predict  Preferences  interface  (see  appendix  6)  adds  the  ability  to 
set  limits  to  the  crack  growth  life  prediction  and  allows  output  to  be  directed  to  an 
standard  text  data  file  (which  may  be  printed)  or  an  ASCII  plot  file.  A  new  line  must  be 
added  to  the  code  after  referencing  the  AFGROW  application  ( Public  prefsAs 
PredictPreferences).  This  line  doesn’t  require  the  prefix  mAfgrow  since  there  are  no 
other  PredictPreferences  classes  available  (look  at  the  object  browser).  Before  using  the 
preference  items,  you  must  add  the  line:  Set  prefs  =  mAfgrow.PredictPreferences.  In  the 
example,  the  following  line:  Call  prefs.SetPropagationLimits(True, , , , ,  1.5)  uses  call  to 
transfer  control  to  the  function  (SetPropagationLimits) .  If  call  is  used,  any  value  returned 
by  the  function  will  be  discarded.  VBA  will  provide  a  help  dialog  for  functions  that  will 
indicate  which  variables  belong  in  the  function  and  in  which  order.  In  the  case  above, 
users  can  stop  entering  commas  after  the  last  value  being  used. 

The  example  using  the  beta  correction  table  interface  (see  appendix  7)  adds  the  ability 
to  enter  beta  correction  information  (stresses  or  betas).  A  new  line  must  be  added  to  the 
code  after  referencing  the  AFGROW  application  (Public  betacorr  As  BetaCorrection). 
This  line  doesn’t  require  the  prefix  mAfgrow  since  there  are  no  other  BetaCorrection 
classes  available  (look  at  the  object  browser).  If  residual  stresses  are  required,  the  same 
format  is  used,  but  the  ResidualStress  object  must  be  referenced.  Before  using  the 
“BetaCorrection” or  “ResidualStress"  items,  user  must  add  a  line  of  code  to  create  an 
object  that  can  be  used  in  the  client  software.  In  the  example,  the  beta  correction  object 
is  created  as  follows:  Set  betacorr  =  mAfgrow.BetaCorrection.  It  is  also  important  to  note 
that  the  model  should  be  set  before  data  are  entered  since  a  part-through  crack  requires 
values  in  two  directions  and  a  through  crack  requires  values  in  only  one  direction.  Refer 
to  the  detailed  help  in  sections  5  and  6  in  this  document  for  more  important  information. 
The  data  type  for  the  arrays  are  variant  and  the  variable,  middle,  in  the  example  is 
required  to  allow  the  array  of  double  precision  to  be  set  equal  to  the  variant  array  used  in 
the  server  (refer  to  the  example).  There  may  be  more  elegant  ways  to  accomplish  this, 
but  the  above  method  works. 

The  example  with  user-defined  betas  and  tabular  lookup  crack  growth  rate  interfaces 
(see  Appendix  8)  is  similar  to  the  previous  example.  It  also  uses  the  standard  application 
interface  and  the  predict  preferences  interface.  This  example  uses  multiple  Excel 
worksheets  to  organize  the  crack  growth  rate  data  and  user-defined  beta  values.  The 
details  for  adding  user-defined  betas  and  material  data  to  any  COM  client  are  given  in 
sections  7  through  12. 

The  capability  to  record  crack  growth  rate  data  for  a  given  analysis  (Predictlnfo  event)  is 
covered  in  section  3.1.3  (events)  and  section  15  (see  appendix  9).  This  example  builds 
on  the  previous  example  by  adding  the  ability  to  record  cycles,  crack  length,  beta  values 
for  a  given  crack  growth  analysis.  This  may  be  useful  in  cases  where  automated  plots  of 
certain  parameters  are  desired  for  a  given  analysis. 

This  AFGROW  COM  server  has  also  added  an  icon  that  appears  in  the  Windows 
taskbar  tray  (the  taskbar  is  where  the  start  button  is  located,  and  the  tray  is  on  the  right- 
hand  side  of  the  taskbar).  When  the  server  is  running,  the  AFGROW  icon  will  appear  in 
the  tray.  The  server  may  be  controlled  by  right-clicking  on  the  AFGROW  icon.  The 
following  menu  will  appear. 
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About  AFGBOW 

Stop  Predict 

Exit 

Figure  3:  AFGROW  COM  Server  Control  Menu 

The  server  may  be  stopped,  closed  (exit),  or  version  information  may  be  obtained. 

Users  can  also  create  forms  using  VBA.  The  option  to  create  a  form  allows  the  user  to 
create  a  custom  interface  where  information  can  be  entered  or  edited.  Everything  else  is 
the  same  -  just  use  the  information  above  to  write  the  VBA  code. 

Notes: 

If  the  AFGROW  server  does  not  work  after  installing  a  version  upgrade,  check  to  see 
whether  ef  not  there  are  multiple  copies  of  a  file  named  afgrow.tlb.  This  file  contains 
information  about  the  COM  server  options  for  AFGROW.  This  file  is  placed  in  the 
AFGROW  directory.  There  should  only  be  a  single  afgrow.tlb  file  on  a  machine.  Also, 
always  remember  to  remove  the  previous  version  of  AFGROW  before  loading  a  new 
version.  Use  the  control  panel  option  to  add/remove  software  to  remove  the  old  version. 

If  there  are  still  problems  running  an  old  VBA  code  with  a  newer  version  of  AFGROW,  try 
moving  the  new  TLB  file  to  a  floppy  (remove  it  entirely  from  the  computer),  and  run  the 
VBA  code.  Make  sure  there  are  no  other  afgrow.tlb  files  on  the  computer.  Close  the  VBA 
code  and  replace  the  TLB  file  in  the  AFGROW  directory  and  run  AFGROW  (as  an 
interactive  program)  to  re-register  the  TLB  file.  Next,  open  the  VBA  code  and  VBA  editor, 
select  tools,  references  and  browse  for  the  TLB  file. 

Never  attempt  to  use  empty  spreadsheet  cells  to  fill  values  required  by  the  COM  server. 
Empty  cells  are  not  equivalent  to  zero. 

When  a  VARIANT  type  is  set  equal  to  array,  it  is  important  that  the  array  be  properly 
dimensioned.  If  the  array  is  larger  than  required,  extra  values  will  be  included  in  the 
VARIANT  causing  problems  with  the  function  using  the  VARIANT.  If  the  array  is  too 
small,  required  variable  cannot  be  saved.  Remember,  that  in  Visual  Basic  if  array 
declared  as  test[3]  it  is  contains  four  values  ( testfO],  test[1],  test[2\  and  test[3]).  Also, 
when  setting  VARIANT  values  with  Excel  cell  values,  the  cell  values  need  to  be  cast  to 
the  appropriate  type  (integer,  double,  etc.). 


3.  Application  Object  available  properties  and  functions 

3.1  AFGROW  Application 

3.1.1  Properties 


Name 

Type 

Description 

BetaCorrection 

IBetaCorrectionlnt* 

Returns  the  Beta  Correction  AFGROW 
object  (see  section  5).  Read-only 

Cracklnitiation 

Icracklnitiation* 

Returns  Crack  Initiation  AFGROW 
object  (see  section  12).  Read-only 

ResidualStresses 

IResidualStressInt* 

Returns  the  Residual  Stresses 

AFGROW  object  (See  Section  6). 

Read-only 

PredictParameters 

IPredictPropertylnt* 

Returns  the  Predict  Properties 

AFGROW  object  (see  section  4). 

Read-only 

Visible 

Boolean 

TRUE  if  the  AFGROW  is  visible,  and 
FALSE  if  not. 

Units 

AfgrowUnits 

Active  AFGROW  Units  enumerated  in 
AfgrowUnits  data  type  (see  appendix  2). 

UserDefinedBeta 

lUserDefBetalnt* 

Returns  User  Defined  Beta  AFGROW 
object  (see  section  7).  Read-only 

3.1.2  Functions 


AfgrowRetardationModels  GetActiveRetardationModel() 

Description 

Gets  the  Active  (Selected)  in  AFGROW  retardation  model. 

Returning  value 

Returns  the  Active  (Selected)  in  AFGROW  retardation  model.  AFGROW  retardation 
models  enumerated  in  AfgrowRetardationModels  data  type  (see  appendix  2). 


short  RunFrozPredict(  double*  Cycles,  double*  finalC,  double*  finalKc,  double* 
finalA,  double*  finalKa,  double*  finalCt,  double*  finalKct ) 

(Ignore  pointers  (*)  in  Visual  Basic) 

Description 

The  subroutine  is  referred  to  as  frozen  since  the  calling  application  will  be  frozen  (unable 
to  respond  to  user  requests)  until  the  prediction  is  complete.  The  other  way  ( RunPredict ) 
to  execute  AFGROW  requires  the  user  to  receive  messages  (or  events)  from  AFGROW. 
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Returning  value 

A  short  value  that  specifies  the  returning  result  of  the  function.  If  it  is  not  equal  to  0,  the 
function  returns  an  error  code.  All  error  codes  are  provided  in  appendix  1. 


Parameters 


Name 

E729HH 

Description 

Cycles 

double* 

Number  of  cycles  to  failure 

FinalC 

Final  crack  length  in  C  (X)  direction 

FinalKc 

Final  K  in  C  (X)  direction 

FinalA 

double* 

Final  crack  length  in  A  (Y)  direction 

FinalKc 

double* 

Final  K  in  A  (Y)  direction 

FinalCt 

double* 

Final  crack  length  in  Ct  (short  side  of  the  oblique 
through  crack  in  X  direction) 

FinalKct 

double* 

Final  K  in  Ct  (X)  direction 

boolean  Quit  ( ) 

Description 

Quits  AFGROW,  prepares  AFGROW  object  for  uploading.  Use  only  in  case  when 
AFGROW  object  was  created  by  a  client  application. 

Returning  value 

Return  TRUE  if  function  execution  was  successful;  otherwise,  FALSE. 


boolean  RunPredict() 

Description 

Execute  the  predict  routine  in  AFGROW  in  an  interactive  mode.  Requires  the  user  to 
receive  messages  (or  events)  from  AFGROW. 

Returning  value 

Returns  TRUE  if  function  execution  was  successful;  otherwise,  FALSE. 

IRetardationlnt*  SetRetardation(AfgrowRetardationModels  nModel,  VARIANT 
dParameter,  VARIANT  bOpenLoadRatioAuto,  VARIANT  dOpenLoadRatio) 

Description 

Sets  the  Retardation  Model  in  AFGROW  (see  section  14). 

Returning  value 

Retardation  Model  AFGROW  Object. 

Parameters 
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Name 

Description 

nModel 

AfgrowRetardationModels 

Active  (selected)  retardation  model. 
AFGROW  retardation  models  are 
enumerated  in  the 
AfgrowRetardationModels  data  type 
(see  appendix  2). 

dParameter 

VARIANT1 

Retardation  parameter.  Shut  off  Ratio 
for  Willenborg  model,  Open  Load  Ratio 
for  Closure  model,  and  Wheeler 
shaping  exponent  for  Wheeler  model. 
This  parameter  is  ignored  by 

AFGROW  when  the  user  selects  no 
retardation  (see  description  of 
AfgrowRetardationModels  data  type  in 
appendix  2). 

bOpenLoadRatioAuto 

VARIANT 

Used  to  specify  initial  crack  opening 
level  for  Closure  Retardation  model 
and  will  be  Ignored  by  AFGROW  in 
other  cases.  If  this  parameter  is  TRUE, 
program  uses  the  first  cycle  of  the 
input  spectrum  to  determine  the  Open 
Load  Ratio  parameter.  If  it  is  FALSE, 
AFGROW  expects  users  to  set 
dOpenLoadRatio  parameter  in  this 
function  and  it  will  be  used  as  the  initial 
crack  opening  level. 

dOpenLoadRatio 

VARIANT 

Initial  crack  opening  level.  Used  only 
by  the  Closure  model  when 
bOpenLoadRatioAuto  is  FALSE. 

boolean  SaveProblemDefFile(BSTR  strFileName ) 

Description 

Save  the  current  AFGROW  problem  definition  file. 

Returning  value 

Return  TRUE  if  function  execution  was  successful;  otherwise,  FALSE. 


Parameters 


Name 

Type 

Description 

StrFileName 

BSTR 

Full  name  of  the  AFGROW  problem  definition  file 

1  The  Variant  data  type  is  the  data  type  for  all  variables  that  are  not  explicitly  declared  as  some  other  type 
(using  statements  such  as  Dim,  Private,  Public,  or  Static).  The  Variant  data  type  has  no  type-declaration 
character. 

For  more  on  Variant  (VB)  or  VARIANT  (VC++),  look  in  help  provided  with  this  languages. 
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(*.da3) 


boolean  OpenProblemDefFile(BSTR  strFileName ) 

Description 

Open  a  new  AFGROW  problem  definition  file. 

Returning  value 

Return  TRUE  if  function  execution  was  successful;  otherwise,  FALSE. 


Parameters 


Name 

Type 

Description 

StrFileName 

BSTR 

Full  name  of  the  AFGROW  problem  definition  file 
(*.da3) 

VARIANT  CalculateBetas([in,  optional]  VARIANT  aCrackLengthArray) 

Description 

Get  the  beta  factors  at  the  user  specified  crack  lengths  for  the  currently  selected  model. 
Remember  that  AFGROW  defines  beta  as:  Beta  =  K/(Stress  x  SQRT(PI  x  crack  length)). 

Returning  value 

VARIANT  (1  ..2)  Dimensional  array  filled  with  the  beta  values  for  the  crack  directions  (C, 
A  or  Ct).  For  all  through  cracks  AFROW  returns  1 -Dimensional  array,  for  oblique  and 
part  through  cracks,  a  2-Dimensional  array  is  returned.  Each  row  of  the  array  contains 
beta  values  that  correspond  to  the  passed  crack  lengths.  Maximum  allowed  size  of  the 
array  is  25x2. 
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Parameters 


Name 

Description 

aCrackLengthArray 

VARIANT 

(1..2)  Dimensional  array  filled 
with  the  required  crack  lengths 
for  the  crack  directions  C  and 

A  (or  Ct  as  the  2nd  dimension 
for  an  oblique  case).  For  all 
through  cracks  AFROW 
expects  1 -Dimensional  array, 
for  oblique  and  part  through 
cracks  2-Dimensional  array. 

If  this  parameter  omitted, 
AFGROW  will  calculate  betas 
for  currently  selected  crack 
parameters. 

VB  example 


itariyat^  Click  { j 


Dini'vaBiatas;;-iVs  Variant 
Dim  aCracks (2,  1)  As  Double 
Dim  error  As  Integer 


aCracks ( 0 , 
aCracks (0 , 
aCracks (1, 
aCracks { 1 , 
aCracks (2, 
aCracks (2, 


0) 

1) 

0) 

1) 

0) 

1) 


First  C  length 


First  A  Length 


Second C  Length .... 


mAf grow  *  Model  «  aS i ng XeThrougbAtHol e 

error  *  mAf grow . SetCrackedPlateWithOf f setHoleProp { 4,  0.25,  0 .25 ; 
it  :44rrpr  False)  Then  MsgBox  O’  Error  Setting  Model  Prop M) 

mAf grow. SetObliqueCrack  0.15/  0.09 '  . 

On  Error  GoTo  error  /  f} 

aBetas  _*  mAf  grow.  CalculateBetas  (aCracks) 

On  Error  Resume  Next; 

£  txt  Be  t  a  Va  1  ue > Tex t  aBetas  (0) 

i  If  error  <>  0  Then 

txtBetaValue . Text  »  aBetas  {0,  0)  a  ”,  "  &  aBetas  {0,  1) 

:End  If 
Exit  Sub 
error :  ^ 

Hi Err^:Nxxmber.:  < >  0  Then  MsgBox  "Message  from  n  +  Err. Source  +  " 
Err . Description  r\  ^  ' 

End  Sub 


0.5) 
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3.1.3  Events 


Close() 

Description 

Occurs  before  AFGROW  closes.  Tells  the  client  application  that  the  server  is  closing. 


Fracturelnfo(long  nReason,  double  dStress,  double  dRStress,  double  dCycles, 
long  dPass,  IDispatch*  iOutputlnfol,  IDispatch*  iOutputlnfo2,  IDispatch* 
iOutputlnfo3,  IDispatch*  iOutputlnfo4) 

Description 

Called  when  fracture  occurs  during  AFGROW  execution  of  the  prediction  routine. 


Parameters 


Name 

Description 

nReason 

long 

Value  that  specifies  the  code  for  the  reason  that 
fracture  occurred.  All  fracture  codes  are  provided  in 
appendix  1 . 

dStress 

double 

Current  stress  value 

dRStress 

double 

Current  stress  ratio 

dCycles 

double 

Number  of  cycles  or  life  in  hours  (depends  on 
AFGROW  preferences) 

dPass 

long 

Number  of  passes  through  the  spectrum 

iOutputlnfol 

IDispatch* 

Output  information  for  the  first  AFGROW  output  (C 
(X)  or  Cl  (X))  crack  direction  (see  section  15  for  a 
list  of  available  parameters) 

iOutputlnfo2 

IDispatch* 

Output  information  for  the  second  output  (A  (Y),  Ct 
(X),  or  C2(X))  crack  direction.  It  depends  on  the 
active  AFGROW  model.  May  also  be  equal  to  NULL 
(Empty  in  VB)  (see  section  15  for  a  list  of  available 
parameters). 

iOutputlnfo3 

IDispatch* 

Reserved  value,  always  equal  to  NULL. 

iOutputlnfo4 

IDispatch* 

Reserved  value,  always  equal  to  NULL. 

Predictlnfo(AfgrowModels  model,  double  dStress,  double  dRStress,  double 
dCycles,  long  dPass,  IDispatch*  iOutputlnfol,  IDispatch*  iOutputlnfo2,  IDispatch* 
iOutputlnfo3,  IDispatch*  iOutputlnfo4) 

Description 

Contains  output  information  and  is  called  at  each  AFGROW  output  interval. 
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Parameters 


Name 

Type 

Description 

model 

AfgrowModels 

Active  AFGROW  model.  The  AFGROW 
Model  identification  number  is  enumerated 
in  AfgrowModels  (see  appendix  2). 

dStress 

double 

Current  stress  value 

dRStress 

double 

Current  stress  ratio 

dCycles 

double 

Number  of  cycles  or  life  in  hours  (depends 
on  AFGROW  preferences) 

dPass 

Number  of  passes  through  spectrum 

iOutputlnfol 

IDispatch* 

Output  information  for  the  first  AFGROW 
output  (C  (X)  or  Cl  (X))  crack  direction 
(See  Section  15  for  a  list  of  available 
parameters) 

iOutputifrfo2 

IDispatch* 

Output  information  for  the  second  output  (A 
(Y),  Ct  (X),  or  C2  (X))  crack  direction.  It 
depends  on  the  active  AFGROW  model. 

May  also  be  equal  to  NULL  (Empty  in  VB). 
(see  section  1 5  for  a  list  of  available 
parameters) 

iOutputlnfo3 

IDispatch* 

Reserved  value,  always  equal  to  NULL. 

iOutputlnfo4 

IDispatch* 

Reserved  value,  always  equal  to  NULL. 

PredictFinished(short  result,  double  dbICycles,  double  dbIKc,  double  dbIKa, 
double  dbIKct,  double  dbIC,  double  dblA,  double  dbICt) 

Description 

Occurs  when  AFGROW  finishes  execution  of  the  prediction  routine.  Note:  This  event 
does  not  necessarily  indicate  that  fracture  has  occurred  -  only  that  the  prediction  routine 
finished  for  some  reason. 


Parameters 


Name 

Type 

Description 

Result 

short 

Value  that  specifies  the  return  code  of  the  function. 

If  it  is  not  equal  to  0,  the  function  finished  the 
prediction  and  the  returning  result  contains  an  error 
code.  All  error  codes  are  provided  in  appendix  1 . 

Cycles 

double 

Number  of  cycles  to  failure 

FinalC 

double 

Final  crack  length  in  the  first  (C  (X)  or  Cl  (X)) 
direction 

FinalKc 

double 

Final  K  in  the  first  (C  (X)  or  Cl  (X))  direction 

FinalA 

double 

Final  crack  length  in  the  second  (A  (Y)  or  C2  (X)) 
direction 

FinalKc 

double 

Final  K  in  the  second  (A  (Y)  or  C2  (X))  direction 

FinalCt 

double 

Final  crack  length  in  Ct  (short  side  of  the  oblique 
through  crack  in  X  direction) 

FinalKct 

double 

Final  K  in  Ct  (X)  direction 
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Transitionlnfo(long  nType,  long  nReason,  double  dStress,  double  dRStress, 
double  dCycles,  long  dPass,  IDispatch*  iOutputlnfol,  IDispatch*  iOutputlnfo2, 
IDispatch*  iOutputlnfo3,  IDispatch*  iOutputlnfo4) 

Description 

Called  when  transition  from  one  type  of  the  crack  to  another  occurs  during  AFGROW 
execution  of  the  prediction  routine. 


Parameters 


Name 

BE9HH 

Description 

nType 

long 

Value  that  specifies  the  transition  type.  All  transition 
type  codes  are  provided  in  appendix  1. 

n  Reason 

long 

Value  that  specifies  the  code  specifying  the  reason 
for  transition.  All  transition  codes  are  provided  in 
appendix  1 . 

dStress 

double 

Current  stress  value 

dRStress 

Current  stress  ratio 

dCycles 

double 

Number  of  cycles  or  life  in  hours  (depends  on 
AFGROW  preferences) 

dPass 

long 

Number  of  passes  through  spectrum 

iOutputlnfol 

IDispatch* 

Output  information  for  the  first  AFGROW  output  (C 
(X)  or  Cl  (X))  crack  direction  (see  section  15  for  a 
list  of  available  parameters) 

iOutputlnfo2 

IDispatch* 

Output  information  for  the  second  output  (A  (Y),  Ct 
(X),  or  C2  (X))  crack  direction.  It  depends  on  the 
active  AFGROW  model.  May  also  be  equal  to  NULL 
(Empty  in  VB)  (see  section  1 5  for  a  list  of  available 
parameters). 

iOutputlnfo3 

IDispatch* 

Reserved  value,  always  equal  to  NULL. 

iOutputlnfo4 

IDispatch* 

Reserved  value,  always  equal  to  NULL. 
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3.2  AFGROW  Model 


3.2.1  Properties 


Name 

Type 

Description 

blnPlaneConstraint 

boolean 

Prevent  in-plane  bending  (only  for  edge  cracks) 

CrackLengthA 

double 

Crack  length  in  A  (Y)  direction  in  AFGROW 

CrackLengthC 

double 

Crack  length  in  C  (X)  direction  in  AFGROW 

CrackLengthCt 

double 

Short  side  of  the  oblique  crack  length  in  the  C  (X) 
direction  in  AFGROW 

CrackLengthACConst 

boolean 

Keep  constant  A/C  length  ratio  in  AFGROW 
(Controlled  by  the  C-direction) 

FilledllnloadedHole 

boolean 

Filled,  unloaded  hole  for  Cracked  Plate  with  Hole 
specimens 

Model  __ 

AfgrowModels 

AFGROW  Model  identification  number  - 
enumerated  in  AfgrowModels  (see  appendix  2) 

SpecimenCrackOffset 

double 

Crack  offset  (Non  centered  crack  -  valid  only  for 
Cracked  Plate  with  internal  through  crack  model) 

SpecimenCyllnDia 

double 

Inner  diameter  of  the  Cylinder  (Thick  Pipe) 
specimen  1 

SpecimenCylOutDia 

double 

Outer  diameter  of  the  Cylinder  (Thick  Pipe) 
specimen  1 

SpecimenDiscDia 

double 

Diameter  of  the  Disk  specimen 

SpecimenHoleDia 

double 

Hole  diameter  of  the  Cracked  Plate  with  Hole  or 
Lug  specimen 

SpecimenHoleOffset 

double 

Offset  of  the  hole  in  Cracked  Plate  with  Hole 
specimen 

SpecimenGrooveDepth 

double 

Groove  Depth  of  the  Common  Crack  Growth 
specimen  (CT  or  WOL) 

SpecimenPipelnDia 

double 

Pipe  inner  diameter 2 

SpecimenPipeOutDia 

double 

Pipe  outer  diameter 1 

SpecimenRodDia 

double 

Rod  diameter 

SpecimenThickness 

double 

Thickness  of  the  specimen 

SpecimenWidth 

double 

Width  of  the  specimen 

SpecimenWOLSTType 

WOL_CTtype 

Type  of  the  Common  Crack  Growth  specimen 
enumerated  in  WOL_CTtype  (see  appendix  2) 

1  Applies  to  Internal  and  External  Axial  Crack  in  Thick  Pipe  (Weight  Function)  solutions. 

2  Applies  to  Part-Through  and  Through  Crack  in  Pipe  (Standard)  solution 
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3.2.2  Functions 


boolean  GetLoad(double*  dTension,  double*  dBending,  double*  dBearing) 

(Ignore  pointers  (*)  in  Visual  Basic) 

Description 

Get  the  ratio  of  the  tension,  bending,  or  bearing  stress  to  the  reference  stress  for  the 
load  case  being  modeled. 

Returning  value 

Return  TRUE  if  function  execution  is  successful;  otherwise,  FALSE. 


Parameters 


Name 

Description 

dTension 

double* 

ratio  of  the  tension  stress  to  the  reference  stress 

double* 

ratio  of  the  bending  stress  to  the  reference  stress 

dBearing 

double* 

ratio  of  the  bearing  stress  to  the  reference  stress 

VARIANT  GetWFStressDistr(CrackDirection  nStressDir) 

Description 

Get  the  applied  stress  distribution  for  models  using  the  Weight  Function  Stress  Intensity 
Solution. 

Returning  value 

VARIANT  2-Dimensional  array  filled  with  stress  distribution  values  for  the  direction 
defined  by  nStressDir  variable.  Each  row  of  the  array  contains  the  distance  from  the 
crack  origin  and  corresponding  stress  values.  Maximum  allowed  size  of  the  array  is 
2x25. 


Parameters 


Name 

Description 

nStressDir 

CrackDirection 

AFGROW  crack  growth  direction  enumerated 
in  the  CrackDirection  data  type  (see  appendix 
2X _ 
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VB  example 

Dim  > SDXarray  As  Variant'  '  v  ; : '  ■ "  ’  ' ' 

Dim  lvalue  As  Integer 
Dim  f value  As  Integer 

SDXarray  =  mAfgrow.GetMFStressDistr (0) 

If  IsArray (SDXarray)  Then 

lvalue  =  UBound (SDXarray,  1) 

f value  «  LBound  (SDXarray,  i)  ,  • 

|  MsgBox  "Last  X="  & ■ 'CS.tr (SDXarray {lvalue,  0))  &  "  Last  Stress®" 

&  CStr '  ( SDXarray ( lvalue , 1 ) ) 

boolean  lsCrackOffset() 

Description 

Determine  whether  the  Crack  in  the  Cracked  Plate  is  offset  (non  centered). 

Returning  value 

Return  TRUE  if  the  crack  is  offset;  otherwise,  FALSE. 

boolean  lsHoleOffset() 

Description 

Check  if  the  Hole  in  the  Cracked  Plate  with  Hole  Specimen  is  offset  (non  centered). 
Returning  value 

Return  TRUE  if  the  hole  is  offset;  otherwise,  FALSE. 


boolean  lsObliqueCrack() 

Description 

Check  whether  the  Through  Crack  in  the  Cracked  Plate  with  Hole  Specimen  is  oblique. 
If  the  crack  is  Part-Through,  check  whether  the  crack  will  transition  to  an  Oblique 
Through  Crack. 

Returning  value 

Return  TRUE  if  the  crack  is  oblique;  otherwise,  FALSE. 


boolean  NoCrackOffset() 

Description 

Set  no  offset  for  the  crack  in  the  Cracked  Plate  Specimen  (the  crack  will  be  centered). 
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Returning  value 

Return  the  previous  offset  state. 


boolean  NoHoleOffset() 

Description 

Set  no  offset  hole  for  the  Cracked  Plate  with  Hole  Specimen  (the  hole  will  be 
centered). 

Returning  value 

Return  the  previous  offset  state. 

boolean  NoObliqueCrackQ 

Description 

Set  no  oblique  through  crack  for  the  Cracked  Plate  with  Hole  Specimen.  If  the  crack  is 
Part-Through,  it  will  transition  to  a  non  oblique  (Straight)  Through  Crack. 

Returning  value 

Return  the  previous  Oblique  Crack  state. 


boolean  SetCrackedPlateProp(double  dWidth,  double  dThick) 

Description 

Sets  all  Cracked  Plate  Specimen  properties. 

Returning  value 

Return  TRUE  if  function  execution  was  successful;  otherwise,  FALSE. 


Parameters 


Name 

BTEHHi 

Description 

dWidth 

double 

Width  of  the  specimen 

dThick 

double 

Thickness  of  the  specimen 
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boolean  SetCrackedPlateWithHoleProp(double  dWidth,  double  dThick,  double 
dDia) 

Description 

Set  all  Cracked  Plate  with  Hole  Specimen  properties. 

Returning  value 

Return  TRUE  if  function  execution  was  successful;  otherwise,  FALSE. 


Parameters 


Name 

Type 

Description 

dWidth 

double 

Width  of  the  specimen 

dThick 

double 

Thickness  of  the  specimen 

dDia  — 

double 

Hole  diameter  of  the  specimen 

boolean  SetCrackedPlateWithOffsetHoleProp(double  dWidth,  double  dThick, 
double  dDia,  double  dOffset) 

Description 

Set  all  Cracked  Plate  with  Offset  Hole  Specimen  properties. 

Returning  value 

Return  TRUE  if  function  execution  was  successful;  otherwise,  FALSE. 


Parameters 


Name 

Type 

Description 

dWidth 

Width  of  the  specimen 

dThick 

BE 

Thickness  of  the  specimen 

dDia 

double 

Hole  diameter  of  the  specimen 

dOffset 

double 

Hole  offset 

SetCrackedPlateWithNotchProp(double  dWidth,  double  dThick) 

Description 

Set  all  Cracked  Plate  with  Notch  Specimen  properties.  Note:  the  notch  dimension  is  not 
specified  since  it  is  determined  from  the  plate  width  for  this  case. 

Returning  value 

Return  TRUE  if  function  execution  was  successful;  otherwise,  FALSE. 


Parameters 


Name 


TyRg- 


Pescription 
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dWidth 

double 

Width  of  the  specimen 

dThick 

double 

Thickness  of  the  specimen 

boolean  SetCrkPltWithOffsetCrackProp(double  dWidth,  double  dThick,  double 
dCrackOffset) 

Description 

Set  all  Cracked  Plate  with  Offset  Crack  Specimen  properties. 

Returning  value 

Return  TRUE  if  function  execution  was  successful;  otherwise,  FALSE. 


Parameters 


Name 

Type 

Description 

dWidth 

double 

Width  of  the  specimen 

dThick 

double 

Thickness  of  the  specimen 

dOffset 

double 

Crack  offset 

boolean  SetCy!inderProp(double  dWidth,  double  dinDia,  double  dOutDia)1 

Description 

Set  all  Cylinder  (Thick  Pipe)  Specimen  properties. 

Returning  value 

Return  TRUE  if  function  execution  was  successful;  otherwise,  FALSE. 


Parameters 


Name 

Type 

Description 

dWidth 

double 

Width  of  the  specimen 

dinDia 

double 

Inner  diameter 

dOutDia 

double 

Outer  diameter 

boolean  SetDiscProp(double  dThick,  double  dDia)2 

Description 

Set  all  Disk  Specimen  properties. 

Returning  value 

Return  TRUE  if  function  execution  was  successful;  otherwise,  FALSE. 


Parameters 


Name 


Type_ 


Description 


1  Applies  to  Internal  and  External  Axial  Crack  in  Thick  Pipe  in  Thick  Pipe  Weight  Function  solutions. 

2  Applies  to  Through  Crack  in  Disk  Weight  Function  solution. 
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dThick 

double 

Thickness  of  the  specimen 

dDia 

double 

Disk  diameter 

short  SetLoad(optional  VARIANT  dTenslon,  optional  VARIANT  dBending, 
optional  VARIANT  dBearing) 

Description 

Set  the  ratio  of  the  tension,  bending,  or  bearing  stress  ratios  to  the  reference  stress  for 
the  load  case  to  be  modeled.  This  function  is  only  applicable  for  models  that  have 
multiple  load  case  solutions. 

Returning  value 

A  short  value  that  specifies  the  returning  result  of  the  function.  If  it  is  not  equal  to  0,  the 
function  could  not  set  the  load  ratios,  and  the  returned  result  is  an  error  code.  All  error 
codes  are  provided  in  appendix  1 . 


Parameters 


Name 

Type 

Description 

dTension 

VARIANT 

ratio  of  the  tension  stress  to  the  reference  stress 

dBending 

VARIANT 

ratio  of  the  bending  stress  to  the  reference  stress 

dBearing 

VARIANT 

ratio  of  the  bearing  stress  to  the  reference  stress 

boolean  SetLugProp(double  dWidth,  double  dThick,  double  dDia) 

Description 

Set  all  Lug  Specimen  properties. 

Returning  value 

Return  TRUE  if  function  execution  was  successful;  otherwise,  FALSE. 


Parameters 


Name 

Description 

dWidth 

double 

Width  of  the  specimen 

dThick 

double 

Thickness  of  the  specimen 

dDia 

double 

Hole  diameter  of  the  lug  specimen 

boolean  SetObliqueCrack(double  LengthC,  double  LengthCt) 

Description 

Set  Oblique  Crack  properties. 

Returning  value 

Return  TRUE  if  function  execution  was  successful;  otherwise,  FALSE. 
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Parameters 


Name 

Description 

double 

Crack  length  in  C(X)  direction  in  AFGROW 

LengthCt 

double 

Short  side  of  the  oblique  crack  length  in  C(X) 
direction  in  AFGROW 

boolean  SetPipeProp(double  dlnDia,  double  dOutDia) 1 

Description 

Set  all  Pipe  Specimen  properties. 

Returning  value 

Return  TRUE  if  function  execution  was  successful;  otherwise,  FALSE. 


Parameters 


Name 

Description 

dlnDia 

double 

Pipe  inner  diameter 

dOutDia 

double 

Pipe  outer  diameter 

boolean  SetRodProp(double  dDia) 

Description 

Set  all  Rod  Specimen  properties. 

Returning  value 

Return  TRUE  if  function  execution  was  successful;  otherwise,  FALSE. 


Parameters 


Name 

Description 

dDia 

double 

Rod  diameter 

void  SetStartPredictFromCycle(double  dCycleNumber) 

Description 

Sets  the  cycle  number  from  which  AFGROW  will  start  a  life  prediction.  If  this  cycle 
number  is  higher  than  the  number  of  cycles  in  the  spectrum,  AFGROW  will  halt  the 
prediction  and  return  an  error  code  of  29.  This  function  can  set  the  starting  cycle  only  for 
the  next  prediction.  Subsequently,  AFGROW  will  start  predictions  from  the  beginning  of 
the  spectrum. 

Returning  value 
No  return  value. 


1  Applies  to  Part-Through  and  Through  Crack  in  Pipe  Standard  solution. 


22 


Parameters 


Name 

Type 

Description 

dCycleNumber 

double 

Number  of  the  cycle  from  which  the  prediction 
will  be  started 

boolean  SetTransitionToObliqueO 

Description 

A  Part-Through  crack  will  transition  to  an  Oblique  Through  Crack.  This  is  valid  only  for  a 
Single  Corner  Cracked  Hole  ( aSingleCornerAtHole )  and  Double  Corner  Cracked  Hole 
{aDoubleCornerAtHole). 

Returning  value 

Return  TRUE  if  function  execution  was  successful;  otherwise,  FALSE. 


boolean  SetWOLCTProp(double  dWidth,  double  dThick,  double  dGrDepth, 
WOL_CTtype  bType) 

Description 

Set  ail  Common  Crack  Growth  Specimen  (CT  or  WOL)  properties. 

Returning  value 

Return  TRUE  if  function  execution  was  successful;  otherwise,  FALSE. 


Parameters 


Name 

Description 

dWidth 

double 

Width  of  the  specimen 

dThick 

double 

Thickness  of  the  specimen 

dGrDepth 

double 

Groove  Depth  of  the  Common  Crack  Growth 
specimen 

bType 

WOL_CTtype 

Type  of  the  Common  Crack  Growth  specimen 
enumerated  in  WOL_CTtype  (see  appendix  2) 

boolean  SetWFStressDistr(CrackDirection  nStressDir,  VARIANT  aStressDistr) 

Description 

Set  the  applied  stress  distribution  for  models  using  the  Weight  Function  Stress  Intensity 
Solution. 

Returning  value 

Return  TRUE  if  function  execution  was  successful;  otherwise,  FALSE. 


Parameters 


Name 

Type 

Description 

nStressDir 

CrackDirection 

AFGROW  crack  growth  direction  enumerated 
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aStressDistr 

VARIANT 

VARIANT  2-Dimensional  array  filled  with  stress 
distribution  values  for  direction  defined  by 
nStressDir  variable.  Each  row  of  the  array 
contains  a  pair  of  values  (distance  from  the 
crack  origin  and  the  corresponding  stress 
value).  The  maximum  allowed  size  of  the  array 
is  25x2. 

VB  example 


Dim  SDarray (2,  1)  As  Double 

SDarray ( 0 , 

0)  =  0 

SDarray 40, 

1)  =  1 

SDarray ( 1 , 

0)  =  0.11 

SDarray ( l , 

1)  =  2 

SDarray (2 , 

0)  =  2.45 

SDarray (2, 

1)  =  4 

result  =  mAfgrow.SetWFStressDistr (AYdirection,  SDarray) 


3.3  AFGROW  Spectrum 


3.2.1  Properties 


Name 

Description 

dPxx 

double 

The  stress  value  that  the  structure  must  be  able  to 
maintain  at  all  crack  sizes. 

SMF 

double 

Stress  Multiplication  factor 

3.3.2  Functions 


boolean  ConstAmplitudeSpectrum(double  R) 

Description 

Selects  a  Constant  Amplitude  Loading  Spectrum  in  AFGROW. 

Returning  value 

Return  TRUE  if  function  execution  was  successful;  otherwise,  FALSE. 


Parameters 


Name 

Type 

Description 

R 

double 

Stress  ratio  (Minimum  Stress/Maximum  Stress) 

24 


boolean  OpenSpectrumFile(BSTR  sFileName) 


Description 

Opens  a  new  spectrum  file  in  AFGROW. 

Returning  value 

Return  TRUE  if  function  execution  was  successful;  otherwise,  FALSE. 


Parameters 


Name 

Type 

Description 

strFileName 

BSTR 

Full  name  of  the  AFGROW  spectrum  file  (*.sp3) 

long  GetSpectrumlnfo  (double*  dCycles,  double*  dLevels,  double*  dSubspectra, 
double*  dMaxValue,  double*  dMinValue) 

(Ignore  pointers  (*)  in  Visual  Basic) 

Description 

Returns  generic  information  about  the  spectrum  currently  open  in  AFGROW. 

Returning  value 

A  long  value  that  specifies  the  result  code  of  the  function.  If  it  is  not  equal  to  0,  the 
function  finished  the  prediction,  and  the  returned  result  is  an  error  code.  All  error  codes 
are  provided  in  appendix  1 . 
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Parameters 


Name 

Description 

dCycles 

double 

Number  of  cycles  in  the  spectrum 

d  Levels 

double 

Number  of  stress  levels  in  the  spectrum 

dSubspectra 

PH 

Number  of  sub-spectra  in  the  spectrum 

dMaxValue 

Highest  maximum  value  in  the  spectrum 

dMinValue 

double 

Lowest  minimum  value  in  the  spectrum 

3.4  AFGROW  Materials 
3.4.1  Functions 

AfgrowMaterials  GetActiveMaterial  () 

Description 

Query  the  active  crack  growth  rate  material  data  type  in  AFGROW. 

Returning  value 

Return  the  active  material  type  in  AFGROW.  Available  AFGROW  material  data  options 
are  enumerated  in  the  AfgrowMaterials  data  type  (see  appendix  2). 


IFormanMateriallnt*  SetFormanMaterial  () 

Description 

Set  the  Forman  Material  data  type  to  be  active  in  AFGROW.  The  default,  or  previously 
set  Forman  Material  data  will  be  used  when  this  material  type  is  activated.  To  access  the 
properties  of  this  material  data  type,  use  IFormanMateriallnt  (Forman  Material  interface 
in  section  1 0). 


Returning  value 

Return  a  pointer  to  the  IFormanMateriallnt  object  (see  section  10)  if  function  execution  is 
successful,  otherwise,  NULL. 


IHarterTMateriallnt*  SetHarterTMaterial  (optional  VARIANT  nMaterial) 

Description 

Set  the  Harter-T  Material  data  type  to  be  active  in  AFGROW.  The  default,  or  previously 
set  Harter-T  data  will  be  used  if  the  optional  parameter  is  omitted.  Otherwise,  AFGROW 
will  try  to  select  the  required  material  from  the  AFGROW  material  database.  To  access 
the  properties  of  this  material  data  type,  use  IHarterTMateriallnt  (Harter-T  material 
interface  in  the  section  8). 

Returning  value 
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Return  a  pointer  to  the  IHarterTMateriallnt  object  (see  section  8)  if  function  execution  is 
successful,  otherwise,  NULL. 


Parameters 


Name 

Description 

sMaterialName 

VARIANT 

AFGROW  Harter-T  material  data  code  (See 

Appendix  10) 

INASGROMateriallnt*  SetNASGROMaterial  (optional  VARIANT  sMaterialName) 

Description 

Set  the  NASGRO  Material  data  type  to  be  active  in  AFGROW.  The  default,  or  previously 
set  NASGRO  material  data  will  be  used  if  the  optional  parameter  is  omitted.  Otherwise, 
AFGROW" will  try  to  select  required  material  from  NASGRO  material  database.  To 
access  the  properties  of  this  material  data  type,  use  INASGROMateriallnt  (see  NASGRO 
material  interface  in  section  12). 

Returning  value 

Return  a  pointer  to  the  INASGROMateriallnt  object  (see  section  12)  if  function  execution 
is  successful,  otherwise,  NULL. 


Parameters 


Name 

BEEHN1 

Description 

sMaterialName 

VARIANT 

NASGRO  material  code  (see  appendix  10) 

ITabularLookupMateriallnt*  SetTabularLookupMaterial  () 

Description 

Set  the  Tabular  Lookup  Material  data  type  to  be  active  in  AFGROW.  The  default,  or 
previously  set  Tabular  Lookup  material  data  will  be  used  when  this  material  type  is 
activated.  To  access  the  properties  of  this  material  data  type,  use 
ITabularLookupMateriallnt  (Tabular  Lookup  material  interface  in  section  10) 

Returning  value 

Return  a  pointer  to  the  ITabularLookupMateriallnt  object  (see  section  1 0)  if  function 
execution  is  successful,  otherwise,  NULL. 
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IWalkerMateriallnt*  SetWalkerMaterial  () 


Description 

Set  the  Walker  Material  data  type  to  be  active  in  AFGROW.  The  default,  or  previously 
set  Walker  material  data  will  be  used  when  this  material  type  is  activated.  To  access  the 
properties  of  this  material  data  type,  use  IWalkerMateriallnt  (Walker  material  interface  in 
section  9). 

Returning  value 

Return  a  pointer  to  the  IWalkerMateriallnt  object  (see  section  9)  if  function  execution  is 
successful,  otherwise,  NULL. 


3.5  Stress  State 


3.5.1  Functions 


boolean  GetStressState(double*  dXDirValue,  double*  dYDirValue) 

(ignore  pointers  in  Visual  Basic) 

Description 

Provides  access  to  the  current  Stress  State  values  in  the  X  (C)  and  Y  (A)  growth 
directions. 

Returning  value 

Returns  TRUE  if  the  Automatic  Stress  State  option  is  selected  in  AFGROW,  otherwise, 
FALSE. 


Parameters 


Name 

1 1BH 

Description 

dXDirValue 

double* 

Stress  State  value  in  C  direction 

dYDirValue 

double* 

Stress  State  values  in  A  direction  (ignored  for 
through  cracks) 

boolean  SetStressState(boolean  bStressStateAuto,  VARIANT  dXDirValue, 
VARIANT  dYDirValue) 

Description 

Sets  the  Stress  State  calculation  mode  and  the  Stress  State  values  in  the  X  and  Y 
directions  if  applicable. 

Returning  value 

Return  TRUE  if  the  Automatic  Stress  State  option  has  been  selected,  otherwise,  FALSE. 


Parameters 


Name 

Type 

Description 

bStressStateAuto 

boolean 

Sets  the  Stress  State  calculation  mode  in 
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AFGROW.  When  it  is  TRUE,  AFGROW  calculates 
the  stress  state  for  each  crack  size  during  the 
prediction  process;  otherwise,  AFGROW  uses  the 
constant  values  supplied  by  the  user  as  the  second 
and  third  parameters  of  this  function. 

dXDirValue 

VARIANT 

Stress  State  value  in  C  direction.  Used  only  if  the 
manual  Stress  State  option  is  selected  in  AFGROW. 

If  the  Auto  mode  is  selected,  these  values  will  be 
ignored. 

dYDirValue 

VARIANT 

Stress  State  values  in  A  direction,  ignored  for 
through  cracks.  Used  only  if  the  Auto  Stress  State 
option  is  selected  in  AFGROW. 

f; 
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4.  Predict  Preferences  Object  Available  Parameters  and  Functions 

4.1  Growth  Increment  Parameters 


Properties 


Name 

Description 

bCycleByCycleBetaCalc 

boolean 

Cycle  by  cycle  beta  calculation1 

boolean 

Cycle  by  cycle  spectrum  calculation2 

dGrowthlncrementPr 

double 

Growth  increment  percent 

4.2  Output  Options 


Properties 


Name 

Type 

Description 

bOutputToFile 

boolean 

Output  prediction  results  to  a  file 

bOutputToPlotFile 

boolean 

Output  prediction  results  to  a  plot  file 

sOutputFileName 

BSTR 

Name  of  the  output  file 

sOutputPlotFileName 

BSTR 

Name  of  the  output  plot  file 

4.3  Propagation  Limits 


4.3.1  Properties 


Name 

Type 

Description 

bCrackLengthStop 

boolean 

Terminate  crack  propagation  at  a  given  crack  length  in 
the  C  direction.  Read-only 

bCyclesStop 

boolean 

Terminate  crack  propagation  after  a  given  number  of 
the  cycles.  Read-only 

bKmaxStop 

boolean 

Terminate  crack  propagation  when  K  exceeds  the 
maximum  K  value.  Read-only 

bNetSectionStop 

boolean 

Terminate  crack  propagation  when  the  Net  Section 

Stress  exceeds  the  Yield  Stress  value.  Read-only 

bUserKmaxStop 

boolean 

Terminate  crack  propagation  when  K  exceeds  a  given 

K  value.  Read-only 

dCrackLength 

double 

Terminate  crack  propagation  at  this  crack  length  in  the 

C  direction.  Read-only 

dUserKmax 

double 

Terminate  crack  propagation  at  this  K  value.  Read-only 

nCycleCount 

long 

Terminate  crack  propagation  after  this  number  of 
cycles.  Read-only 

nSpectrumToBeRepeated 

long 

Maximum  allowable  spectrum  repeats  (or  passes). 

4.3.2  Functions 


SetPropagationLimits(optional  VARIANT  bCrackLengthStop,  optional  VARIANT 
bCyclesStop,  optional  VARIANT  bKmaxStop,  optional  VARIANT  bUserKmaxStop, 


1  Calculates  beta  values  on  a  cycle  by  cycle  basis. 

2  Calculates  beta  values  for  a  given  Vroman  crack  increment  (range)  and  increment  the  spectrum  in  a  cycle 
by  cycle  basis. 
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optional  VARIANT  bNetSectionStop,  optional  VARIANT  dCrackLength,  optional 
VARIANT  nCycleCount,  optional  VARIANT  dUserKmax) 


Description 

Sets  Propagation  Limits  Properties. 


Parameters 


Name 

Type 

Description 

bCrackLengthStop 

VARIANT 

Terminate  crack  propagation  at  given  crack 
length  in  the  C  direction. 

bCyclesStop 

VARIANT 

Terminate  crack  propagation  after  a  given 
number  of  the  cycles. 

bKmaxStop 

VARIANT 

Terminate  crack  propagation  when  K  exceeds 
the  maximum  K  value. 

bNetSectionStop 

VARIANT 

Terminate  crack  propagation  when  the  Net 
Section  Stress  exceeds  the  Yield  Stress  value. 

bUserKmaxStop 

VARIANT 

Terminate  crack  propagation  when  K  exceeds 
a  given  K  value. 

dCrackLength 

VARIANT 

Terminate  crack  propagation  at  this  crack 
length  in  the  C  direction. 

dUserKmax 

VARIANT 

Terminate  crack  propagation  after  this  number 
of  cycles. 

nCycleCount 

VARIANT 

Terminate  crack  propagation  after  this  number 
of  cycles. 

4.4  Part  Through  to  Through  Crack  Transition  Options 


Properties 


Name 

Description 

nTransitionAt 

CrackTransConditions 

Sets  criteria  for  transition  from  part 
through  to  through  crack.  Available 
transition  criteria  are  enumerated 
in  CrackTransConditions  data  type 
(see  appendix  2). 
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4.5  Output  Intervals 


4.5.1  Properties 


Name 

Type 

Description 

bLifelnHours 

boolean 

Specifies  the  option  to  display  the 
lifetime  in  hours  (Read-only,  use 
SetLifelnHours  function  to  set  this 
option). 

dCrackGrowthlncrement 

double 

Specifies  the  change  in  crack  length 
between  two  sequential  data  outputs. 
Used  only  when  nOutputlntervalType 
set  to  CrackGrowth Increment.  Read¬ 
only 

dHoursPerPass 

double 

Parameter  that  specifies  the  number 
of  hours  per  pass  through  the 
spectrum.  Used  only  when  the 
LifelnHours  option  is  selected  (Read¬ 
only,  use  SetLifelnHours  function  to 
set  this  option). 

nSpectrumCyclicIncrement 

long 

Specifies  the  number  of  cycles 
between  two  sequential  data  outputs. 
Used  only  when  nOutputlntervalType 
set  to  SpectrumCyclicIncrement. 

Read-only 

nOutputlntervalType 

OutputlntervalType 

Parameter  that  determines  the  type  of 
output  interval.  All  possible  options 
(crack  length,  number  of  cycles,  or 
each  spectrum  stress  level)  are 
enumerated  in  the  OutputlntervalType 
data  type  (see  appendix  2).  Read¬ 
only 

4.5.2  Functions 


SetLifelnHours(boolean  bLifelnHours,  [in,  optional]  VARIANT  dHoursPerPass); 

Description 

Sets  Properties  for  Displaying  Lifetime  in  Hours. 
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Parameters 


Name 

Type 

Description 

bLifelnHours 

boolean 

Turns  the  Display  Lifetime  in  Hours 
option  ON  or  OFF  in  AFGROW. 

dHoursPerPass 

VARIANT 

The  number  of  hours  per  pass 
through  the  spectrum.  This  value  is 
used  to  calculate  the  lifetime  in  hours. 
This  parameter  is  optional.  It  should 
be  ignored  if  bLifelnHours  parameter 
is  FALSE. 

SetOutputlntervals(OutputlntervaIType  nlntervalType,  [in,  optional]  VARIANT 
alntervaJValue) 


Description 

Sets  Output  Interval  Properties. 


Parameters 


Name 

Type 

Description 

nlntervalType 

OutputlntervalType 

Parameter  that  determines  the  type  of 
output  interval.  All  possible  options 
(crack  length,  number  of  cycles,  or 
each  spectrum  stress  level)  are 
enumerated  in  the  OutputlntervalType 
data  type  (see  appendix  2). 

alntervalValue 

VARIANT 

The  output  interval  to  be  used  for  the 
given  type  of  the  output  interval  (crack 
length  or  cycles).  This  parameter  is 
optional.  If  it  is  omitted,  AFGROW  will 
used  the  most  recently  set  value.  That 
value  will  be  ignored  if  the  option: 
EachSpectrumStressLevel  is 
selected. 

Note:  An  error  will  result  if  the  interval 
is  not  appropriate  for  the  given  output 
interval  type. 
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5.  Beta  Correction  Object  Available  Parameters  and  Functions 


Properties 


Name 

Description 

aBetaCorrectionData 

VARIANT 

Beta  correction  data.  It  is  a  2- 
Dimensional  array  filled  with 
Normalized  Stress  or  Beta 

Correction  distribution  values.  (Data 
type  is  defined  by  nTypeOfData 
variable).  Maximum  allowed  size  of 
the  array  is  25x2  or  25x3. 

Each  row  of  the  array  contains  a 
distance  from  the  crack  origin  and  a 
corresponding  beta  correction  value. 
An  array  with  two  columns  contains 
only  data  for  the  X  direction  and  an 
array  with  three  columns  contains 
data  for  the  X  and  Y  direction.  If  a 
three-column  array  is  used  for  a 
through  crack,  the  Y  direction  will  be 
ignored.  The  first  distance  value 
should  be  greater  than  0. 

bUseBetaCorrection 

boolean 

Turns  the  beta  correction  option  ON 
or  OFF  in  AFGROW  (The  Beta 
correction  option  can  not  be  used 
for  Weight  Function  Stress  Intensity 
Solution  Models). 

nTypeOfData 

T  ypeOfBetaCorData 

Sets  the  type  of  the  beta  correction 
data  (Normalized  Stresses  or  Beta 
Correction  Factors).  Available  data 
types  are  enumerated  in 
TypeOfBetaCorData  (see  appendix 

2). 

VB  sample 

Dim  SDarray(3,  1)  As  Double 
Dim  SBeta  As  Variant 
On  Error  GoTo  error 
BetaCor .bUseBetaCorrection  =  True 


SDarray { 0 , 

0) 

- 

0.1 

SDarray ( 0 , 

1) 

= 

1 

SDarray ( 1 , 

0) 

= 

0.11 

SDarray <1, 

1) 

2 

SDarray (2, 

0) 

= 

2.45 

SDarray (2, 

1) 

- 

4 

SDarray { 3  # 

0) 

= 

3.45 

SDarray (3, 

1) 

35 

4.6 

SBeta  =  SDarray 

BetaCor. aBetaCorrectionData  =  SBeta 
BetaCor.nTypeOfData  =  NormalizedStress 
SBeta  =  BetaCor .aBetaCorrectionData 
BetaCor.nTypeOfData  =  BetaCorrectionFactors 
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BetaCor . aBe taCorrectionData  =  SBeta 
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6.  Residual  Stress  Object  Available  Parameters  and  Functions 


Properties 


Name 

Description 

bApplyResidualStresses 

boolean 

Turns  the  residual  stress  option 
ON  or  OFF  in  AFGROW. 

aResidualStressesData 

VARIANT 

Residual  stresses  data.  It  is  a 
2-Dimensional  array  filled  with 
Stress  or  Residual  K 
distribution  values  (Data  type  is 
defined  by  nTypeOfData 
variable).  Maximum  allowed 
size  of  the  array  is  25x2  or 

25x3. 

Each  row  of  the  array  contains 
a  distance  from  the  crack  origin 
and  corresponding  residual 
stress  values.  An  array  with  two 
columns  contains  only  data  for 
the  X  direction  and  an  array 
with  three  columns  contains 
data  for  the  X  and  Y  direction.  If 
a  three-column  array  is  used  for 
a  through  crack,  the  Y  direction 
will  be  ignored. 

nT ypeOfSI  FT  ableGen 

TypeOfResSIFTableGeneration 

Sets  the  method  for  residual 
stress  intensity  (SIF)  table 
calculation  inside  AFGROW. 
Available  data  types  are 
enumerated  in 

T  ypeOf  ResSI  FT  ableGeneration 
(see  appendix  2).  The  Weight 
Function  method  of  residual 

SIF  calculation  is  possible  only 
if  a  weight  function  solution  is 
available  for  the  geometry 
being  analyzed.  Currently  this 
option  can  be  used  for  all 
AFGROW  Weight  Function 
models  plus  for  1010,  1070, 
2010,  2040,  and  2050  Standard 
Solution  models.  The  Gaussian 
integration  method  can  be  used 
for  all  models. 

nTypeOfData 

TypeOfResStressData 

Sets  the  type  of  the  residual 
stresses  data  (Stresses  or 
Residual  K).  Available  data 
types  are  enumerated  in 
TypeOfResStressData  (see 
appendix  2). 
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VB  sample 

Dim  SDarray  (5,  2)  As  Double 
Dim  SResid  As  Variant 
On  Error  GoTo  error 

Res S t ress . bApplyRes i duals t re s s e s  *  True 
ResS tress .  nTypeOfData  ^  Stress  ' 


SDarray (0, 

0) 

SDarray (0, 

1) 

SDarray { 0 , 

2) 

SDarray { 1 , 

0) 

=  0*11 

SDarray (1, 

1) 

*  2 . 

SDarray (1, 

2) 

=  2 . 1 

SDarray (2 , 

0) 

=  2.45 

SDarray  {2  ,:; 

1) 

=  4 

SDarray (2, 

2) 

•  4 . 1 

SDarray (3 , 

0) 

*  3.12 

SDarray (3, 

1) 

=-5.1 

SDarrayj3 , 

2) 

-.s/i 

SDarray (4 , 

0) 

*  ;|:3  •$ 

SDarray (4, 

1) 

■;=  2.1 

SDarray (4 , 

SDarray (5, 

0) 

=•..3';' s" 

SDarray (5, 

1) 

;;=v:  2.2 

SDarray ( 5 , 

2) 

-=;;i.2 

SResid  =  ;Sbarray  ;;  .:-  - 

ResStress.aResidualStressesData  *  SDarray 
SResid  -  ResStress -aResidualStressesData 
ResSt res s.nTypeOf Data  =  ResidualK  : 
ResStress . aResidualStressesData  »  SResid 
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7.  User  Defined  Beta  Object  Available  Parameters  and  Functions 


7.1  Properties 


Name 

Type 

Description 

aThroughCrackData 

VARIANT 

User  Defined  Beta  data  used  only 
for  through  cracks.  It  is  a  2- 
Dimensional  array  containing  user- 
defined  Beta  values.  The  maximum 
allowed  size  of  the  array  is  25x2. 

Each  row  of  the  array  contains  a 
distance  from  the  crack  origin  and  a 
corresponding  user-defined  beta 
value. 

7.2  Functions 


long  GetFourPointslnt(double*  dA12,  double*  dA34,  double*  dCI,  double*  dC2, 
double*  dC3,  double*  dC4,  double*  dBetaAl,  double*  dBetaA2,  double*  dBetaA3, 
double*  dBetaA4,  double*  dBetaCI,  double*  dBetaC2,  double*  dBetaC3,  double* 
dBetaC4) 

(Ignore  pointers  (*)  in  Visual  Basic) 

Description 

Get  information  for  the  Four  Point  User-Defined  Beta  Interpolation  Method. 


Four  point  Interpolation 


£  \  Enter  Beta  values  for  four  reference  cracks  that  encompass  the  expected  range  of 

V  crack  growth.  Cracks  no.  1  and  2  mast  hove  an  equal  'A'  value  that  is  less  than  or 
equal  to  the  initial  crack  depth,  'A‘, 

Cracks  no.  3  and  A  must  hove  an  equal  'A*  value  that  is  greater  than  or  equal  to  95%  of  the 
thickness. 

Also,  cracks  no.  1  and  3  must  have  ’C*  values  less  than  or  equal  to  the  initial  crack  length,  *C, 
and  cracks  no.2  and  A  must  have  *C  values  greater  than  or  equal  to  the  maximum  crack 
length,  expected  before  transition  to  a  through-crack 

During  fatigue  life  calculations,  if  the  current  crack  falls  outside  this  envelope,  it  will  be 
assigned  Beta  values  equal  to  those  of  the  nearest  reference  crack. 


*C  Beta  ‘A' 

|0  475  [T“ 

[OOT  [l 

JO  475  [i 


Cancel 


Beta  'C* 


F 

F 

Help  | 


Figure  4:  Four  Point  Interpolation  Page  of  the  User-Defined  Beta  Wizard 


Returning  value 
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A  long  value  that  specifies  the  returning  result  of  the  function.  If  it  is  not  equal  to  0,  there 
was  an  error  in  obtaining  the  requested  information.  All  error  codes  are  provided  in 
appendix  1 . 


Parameters 


Name 

Type 

Description 

dA12 

double* 

The  a-length  for  the  first  and  second  reference 
crack 

dA34 

double* 

The  a-length  for  the  third  and  fourth  reference  crack 

dCI 

double* 

The  c-length  for  the  first  reference  crack 

dC2 

double* 

The  c-length  for  the  second  reference  crack 

dC3 

double* 

The  c-length  for  the  third  reference  crack 

dC4 

double* 

The  c-length  for  the  fourth  reference  crack 

dBetaAl 

double* 

Beta  (a-dimension)  for  the  first  reference  crack 

dBetaA2 

double* 

Beta  (a-dimension)  for  the  second  reference  crack 

dBetaAS- 

double* 

Beta  (a-dimension)  for  the  third  reference  crack 

dBetaA4 

double* 

Beta  (a-dimension)  for  the  fourth  reference  crack 

dBetaCI 

double* 

Beta  (c-dimension)  for  the  first  reference  crack 

dBetaC2 

double* 

Beta  (c-dimension)  for  the  second  reference  crack 

dBetaC3 

double* 

Beta  (c-dimension)  for  the  third  reference  crack 

dBetaC4 

double* 

Beta  (c-dimension)  for  the  fourth  reference  crack 

long  GetLi neal nt(VARI ANT*  aALengthArray,  VARIANT*  aCLengthArray,  VARIANT* 
aABetasArray,  VARIANT*  aCBetasArray) 

(Ignore  pointers  (*)  in  Visual  Basic) 

Description 

Get  information  for  the  User-Defined  Beta  Linear  Interpolation  Method. 

Returning  value 

A  long  value  that  specifies  the  returning  result  of  the  function.  If  it  is  not  equal  to  0,  there 
was  an  error  in  obtaining  the  requested  information.  All  error  codes  are  provided  in 
appendix  1 . 
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Parameters 


Name 

Type 

Description 

aALengthArray 

VARIANT* 

Range  of  A  Length  values  for  interpolation  (No  more 
than  100  and  there  should  be  an  equal  number  of  C 
Length  values). 

aCLengthArray 

VARIANT  * 

Range  of  C  Length  values  for  interpolation  (No  more 
than  100  and  there  should  be  an  equal  number  of  A 
Length  values). 

aABetasArray 

VARIANT  * 

2-D  data  matrix  containing  A  Beta  values  for  the 
range  specified  by  aALengthArray  and 
aCLengthArray  (No  more  than  100x100  size). 

aCBetasArray 

VARIANT  * 

2-D  data  matrix  containing  C  Beta  values  for  the 
range  specified  by  aALengthArray  and 
aCLengthArray  (No  more  than  100x100  size). 

TypeOfUserDefBetaPartThroughCracklnt  GetPartThroughlntType  () 

Description 

Determine  the  type  of  the  User  Defined  Beta  interpolation  method  being  used  for  a  part- 
through  crack. 

Returning  value 

Type  of  the  User-Defined  Beta  interpolation  method  being  used  for  part-through  cracks. 
These  values  are  enumerated  in  TypeOfUserDefBetaPartThroughCracklnt  (See 
appendix  2). 


boolean  lsSet() 

Description 

Determine  whether  the  User-Defined  Beta  information  is  set  in  AFGROW  (If  this 
information  is  required  and  has  not  been  set,  AFGROW  will  refuse  to  execute  the  crack 
growth  analysis  module). 

Note:  When  setting  User-Defined  Beta  information  for  the  Part-Through  and  Through 
cracks  it  is  acceptable  to  set  only  the  User  Defined  Beta  data  for  a  through  crack 
(aThroughCrackData).  If  the  part-through  information  is  not  set,  AFGROW  will  use  the 
default  Four  Point  Interpolation  data.  This  means  that  users  may  set  information  using 
only  the  aThroughCrackData  property  and  obtain  a  positive  result  (TRUE)  from  this 
function. 

Returning  value 

Returns  TRUE  if  the  User  Defined  Beta  information  has  been  set  in  AFGROW; 
otherwise,  FALSE. 
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long  SetFourPointslnt(double  dA12,  double  dA34,  double  dCI,  double  dC2,  double 
dC3,  double  dC4,  double  dBetaAl,  double  dBetaA2,  double  dBetaA3,  double 
dBetaA4,  double  dBetaCI,  double  dBetaC2,  double  dBetaC3,  double  dBetaC4) 

Description 

Set  information  for  the  Four  Point  User-Defined  Beta  Interpolation  method  in  AFGROW 
(see  figure  4). 

Returning  value 

A  long  value  that  specifies  the  returning  result  of  the  function.  If  it  is  not  equal  to  0,  there 
-  was  an  error  setting  the  required  information.  All  error  codes  are  provided  in  appendix  1. 


Parameters 


Name 

Type 

Description 

dA12  __ 

double 

The  a-length  for  the  first  and  second  reference 
crack 

dA34 

double 

The  a-length  for  the  third  and  fourth  reference  crack 

dCI 

double 

The  c-length  for  the  first  reference  crack 

dC2 

double 

The  c-length  for  the  second  reference  crack 

dC3 

double 

The  c-length  for  the  third  reference  crack 

dC4 

double 

The  c-length  for  the  fourth  reference  crack 

dBetaAl 

double 

Beta  (a-dimension)  for  the  first  reference  crack 

dBetaA2 

double 

Beta  (a-dimension)  for  the  second  reference  crack 

d  Beta  A3 

double 

Beta  (a-dimension)  for  the  third  reference  crack 

dBetaA4 

double 

Beta  (a-dimension)  for  the  fourth  reference  crack 

dBetaCI 

double 

Beta  (c-dimension)  for  the  first  reference  crack 

dBetaC2 

double 

Beta  (c-dimension)  for  the  second  reference  crack 

dBetaC3 

double 

Beta  (c-dimension)  for  the  third  reference  crack 

dBetaC4 

double 

Beta  (c-dimension)  for  the  fourth  reference  crack 

long  SetLinealnt(VARIANT  aALengthArray,  VARIANT  aCLengthArray,  VARIANT 
aABetasArray,  VARIANT  aCBetasArray) 

Description 

Set  information  for  the  User-Defined  Beta  Linear  Interpolation  method  in  AFGROW. 

Returning  value 

A  long  value  that  specifies  the  returning  result  of  the  function.  If  it  is  not  equal  to  0,  there 
was  an  error  setting  the  required  information.  All  error  codes  are  provided  in  appendix  1. 
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Parameters 


Name 

Description 

aALengthArray 

VARIANT 

Range  of  A  Length  values  for  interpolation  (No  more 
than  100  and  should  be  equal  number  of  C  Length 
values). 

aCLengthArray 

VARIANT 

Range  of  C  Length  values  for  interpolation  (No  more 
than  100  and  should  be  equal  number  of  A  Length 
values). 

aABetasArray 

VARIANT 

2-D  data  matrix  with  A  Beta  values  for  the  range 
specified  by  aALengthArray  and  aCLengthArray  (No 
more  than  1 00x1 00  size). 

aCBetasArray 

VARIANT 

2-D  data  matrix  with  A  Beta  values  for  the  range 
specified  by  aALengthArray  and  aCLengthArray  (No 
more  than  100x100  size). 

VB  sample 


Private  Sub  bUserBeta_Click<) 

Dim  selected  As  Boolean 

Dim  IntType  As  Afgrow.TypeOfUserDefBetaPartThroughCracklnt 

Dim  result  As  Integer 

Dim  a!2  As  Double 

Dim  a34  As  Double 

Dim  cl  As  Double 

Dim  c2  As  Double 

Dim  c3  As  Double 

Dim  c4  As  Double 

Dim  bal  As  Double 

Dim  ba2  As  Double 

Dim  ba3  As  Double 

Dim  ba4  As  Double 

Dim  bcl  As  Double 

Dim  bc2  As  Double 

Dim  bc3  As  Double 

Dim  bc4  As  Double 

Dim  SDarray (3,  1)  As  Double 

Dim  SBeta  As  Variant 

On  Error  GoTo  error 


•Check  set 

data 

SDarray (0, 

0) 

s 

0.1 

SDarray (0, 

1) 

= 

1 

SDarray ( 1 , 

0) 

0.11 

SDarray (1, 

1) 

= 

2 

SDarray (2, 

0) 

= 

2.45 

SDarray (2, 

1) 

ss 

4 

SDarray (3 , 

0) 

— 

3.45 

SDarray (3, 

1) 

ss 

4.6 

SBeta  =  SDarray 

selected  =  UserDefBeta . IsSet 
If  (selected  =  False)  Then 

MsgBox  { "selected  =  FALSE”) 
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UserDef Beta. aThroughCrackData  =  SBeta 

"  .  End  If  '  :  ':|  ■ 

IntType  «  UserDef Beta . GetPartThroughlntType 

MsgBox  { "DataType  =  "  &  CStr  (IntType) ) 

'*  — Checking  Part  through  Crack 

result  *  UserDef Beta. GetFourPointsInt (al2,  a34,  cl,  c2,  c3,  C4, 
bal,  ba2,  ba3,  ba4,  bcl,  bc2,  bc3 ,  bc4)  v. 

result  =  UserDef Beta . SetFourPointsInt (0.05,  0 . 2375,  0.07,  0.475, 
0.07,  0.475,  1#,  1.2,  1#,  1.2,  1,  1.2,  IS,  .  1.2)  .*■;  . 

>  — Checking  Linear  Interpolation 
Dim  a{l)  As  Double 

Dim  c(l)  As  Double  .■  ■'  1= 

Dim  aBeta d,  1)  As  Double  . 

Dim  cBeta(l,  1)  As  Double 

'Check  for  set  data 


a (0)  =  0 

.05 

a(l)  ■  0 

.235 

c  (0)  »  0 

.07 

cd)  *  o 

.271 

aBeta { 0 , 

0)  = 

0. 

.842 

aBeta (0, 

1)  = 

0, 

;■  327 

aBeta ( 1 , 

0)  = 

1, 

,-lSS' 

aBeta  d, 

1)  :;  = 

0, 

.973 

cBeta (0, 

0)  = 

0. 

.  613 

cBeta ( 0 , 

1)  « 

1, 

.083 

cBeta (1, 

0)  = 

0. 

.227 

cBeta (1, 

1)  = 

0. 

.979 

■i"',.,;., result  =  UserDef  Beta.  SetLinealnt  (a,  c,  aBeta,  cBeta)  .i. 

Dim  al  As  Variant  '  ' 

Dim  ccl  As  Variant 
Dim  baal  As  Variant 
Dim  bccl  As  Variant 

result  =  UserDef Beta. GetLinealnt (al,  ccl,  baal,  bccl) 

Dim  Lower  As  Integer 

;■  *'• .  ‘  'JLovtrj'-s  LBound(al,  '  1}  .V/.  .  ■ 

Lower  ■  UBound{ccl,  1)  f 
result  ■  UserDef Beta . SetLinealnt (al ,  ccl ,  baal,  bccl) 

Exit  Sub  '■  ' 

error:  If  Err. Number  <>  0  Then  MsgBox  "Message  from  "  +  Err. Source  + 
+  Err. Description 

End  Sub  :  ■  r  ;  '  y  .  1  . 
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8.  Harter-T  Material  Object  Available  Parameters  and  Functions 


Functions 
boolean  IsActive  () 

Description 

Determine  whether  this  material  object  is  active  in  AFGROW. 
Returning  value 

TRUE  if  the  Harter-T  Material  is  active  in  AFGROW  and  FALSE  if  not. 


boolean  SetActive(VARIANT  nMaterial) 

Description 

Set  the  Harter-T  Material  data  type  to  be  active  in  AFGROW.  The  program  will  use  the 
default  AFGROW  data  or  previously  used  Harter-T  material  if  the  optional  parameter  is 
omitted.  If  the  parameter  is  included,  the  specified  material  data  will  be  selected  from  the 
AFGROW  material  database. 

Returning  value 

Return  TRUE  if  function  execution  was  successful;  otherwise,  FALSE. 


Parameters 


Name 

Description 

nMaterial 

VARIANT 

AFGROW  Harter-T  material  data  code  (see 
appendix  10) 
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9.  Walker  Material  Object  Available  Parameters  and  Functions 


9.1  Properties 


Name 

Description 

aCurveSegments 

VARIANT 

2-D  data  matrix  of  Walker  Equation 
data.  Each  row  in  this  matrix 
corresponds  to  one  segment  of 
dadN  curve  and  may  contain  no 
more  than  5  segments.  Each 
segment  entry  consists  of: 

C:  Value  of  da/dN  when  R=0  and 
Delta  K=1  (da/dN  intercept) 
n:  Paris  Exponent  (da/dN  slope) 
m:  Walker  exponent 

dKIc 

double 

Plane  strain  fracture  toughness 

dKc 

double 

Plane  stress  fracture  toughness 

dPoissonsRatio 

double 

Poisson's  ratio 

dRhi 

double 

Upper  limit  on  R  shift 

dR'lo 

double 

Lower  limit  on  R  shift 

dThermalEx 

double 

Coefficient  of  thermal  expansion 

dThreshold 

double 

Delta  K  Threshold  Value  at  R=0 

sMaterialName 

BSTR 

Material  name 

dYield 

double 

Yield  strength 

dYoungModulus 

double 

Young's  modulus 

9.2  Functions 
boolean  IsActive  () 

Description 

Determine  whether  this  material  object  is  active  in  AFGROW. 

Returning  value 

TRUE  if  the  Walker  Material  data  type  is  active  in  AFGROW  and  FALSE  if  not. 


boolean  SetActive() 

Description 

Set  the  Walker  Material  data  type  to  be  active  in  AFGROW. 
Returning  value 

Return  TRUE  if  function  execution  was  successful;  otherwise,  FALSE. 
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10.  Forman  Material  Object  Available  Parameters  and  Functions 


10.1  Properties 


Name 

Description 

aCurveSegments 

VARIANT 

2-D  data  matrix  of  Forman  Equation 
data  for  the  first  (main)  data  fit.  Each 
row  in  this  matrix  corresponds  to 
one  segment  of  dadN  curve  and  it 
can  contain  data  for  no  more  than  3 
segments.  Each  segment  entry 
consists  of: 

C:  Value  of  da/dN  when  R=0  and 
Delta  K=1  (da/dN  intercept) 
n:  Paris  Exponent  (in  this  case,  limit 
in  da/dN  slope  as  DK  approaches 

0.0) 

Kcut:  Value  of  Delta  K  (at  R=0) 
defining  the  highest  Delta  K  allowed 
for  the  given  segment  (upper 
segment  boundary) 

Note:  The  Kcut  value  for  the  last 
defined  segment  is  assumed  to  be 
equal  to  the  plane  stress  fracture 
toughness  of  the  metal  being 
analyzed. 

dKIc 

double 

Plane  strain  fracture  toughness 

dPoissonsRatio 

double 

Poisson's  ratio 

dRhi 

double 

Upper  limit  on  R  shift 

dRIo 

double 

Lower  limit  on  R  shift 

dThermalEx 

double 

Coefficient  of  thermal  expansion 

dThreshold 

double 

Delta  K  Threshold  Value  at  R=0 

sMaterialName 

BSTR 

Material  name 

dYield 

double 

Yield  strength 

dYoungModulus 

double 

Young's  modulus 

10.2  Functions 
boolean  IsActive  () 

Description 

Determine  whether  this  material  object  is  active  in  AFGROW. 
Returning  value 

TRUE  if  the  Forman  Material  is  active  in  AFGROW  and  FALSE  if  not. 


boolean  GetMapR([out]  double*  dRIoBorder,  [out]  double*  dRhiBorder,[out] 
double*  dRValue) 

(Ignore  pointers  (*)  in  Visual  Basic) 
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Description 

AFGROW  allows  users  to  map  the  Forman  fit  for  a  range  of  R  values  to  a  given  R.  This 
function  queries  parameters  for  this  R  mapping  to  determine  whether  the  mapping  option 
is  active. 

Returning  value 

Return  TRUE  if  the  Map  Forman  R  option  in  AFGROW  is  active;  otherwise,  FALSE. 


Parameters 


Name 

Description 

dRhiBorder 

double* 

Upper  limit  of  the  R  range 

dRIoBorder 

double* 

Lower  limit  of  the  R  range 

dRValue 

double* 

R  value  that  R  range  will  be  mapped  to 

boolean  GetUseRRange(double*  dRValue,  VARIANT  aCurveSegments) 

(Ignore  pointers  (*)  in  Visual  Basic) 

Description 

AFGROW  allows  users  to  define  up  to  two  fits  (three  segments  each)  as  a  function  of 
stress  ratio  (R).  This  function  queries  parameters  for  of  the  second  stress  ratio  fit 
mapping  to  determine  whether  the  second  fit  option  is  being  used. 

Returning  value 

Return  TRUE  if  AFGROW  uses  two  fit  curve  is  active;  otherwise,  FALSE. 
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Parameters 


Name 

Type 

Description 

dRValue 

double* 

Rcut  (AFGROW  uses  second  fit  when  R  is  greater 
than  Rcut) 

aCurveSegments 

VARIANT* 

2-D  data  matrix  of  Forman  Equation  data  for  the 
second  data  fit.  Each  row  in  this  matrix  corresponds 
to  one  segment  of  dadN  curve  and  it  can  contain 
data  for  no  more  than  three  segments.  Each 
segment  entry  consists  of: 

C:  Value  of  da/dN  when  R=0  and  Delta  K=1  (da/dN 
intercept) 

n:  Paris  Exponent  (in  this  case,  limit  in  da/dN  slope 
as  DK  approaches  0.0) 

Kcut:  Value  of  Delta  K  (at  R=0)  defining  the  highest 
Delta  K  allowed  for  the  given  segment  (upper 
segment  boundary) 

Note:  The  Kcut  for  the  last  defined  segment  is 
assumed  to  be  equal  to  the  plane  stress  fracture 
toughness  of  the  metal  being  analyzed. 

boolean  SetActive() 

Description 

Sets  the  Forman  Material  data  type  to  be  active  in  AFGROW. 

Returning  value 

Return  TRUE  if  function  execution  was  successful;  otherwise,  FALSE. 


long  SetMapR(boolean  bMapR,  optional  VARIANT  dRIoBorder,  optional  VARIANT 
dRhiBorder,  optional  VARIANT  dRValue) 

Description 

AFGROW  allows  users  to  map  the  Forman  fit  for  a  range  of  R  values  to  a  given  R.  This 
function  turns  mapping  ON/OFF  and  set  parameters  for  the  R  mapping. 

Returning  value 

A  long  value  that  specifies  the  returning  result  of  the  function.  If  it  is  not  equal  to  0,  the 
function  was  unable  to  set  the  desired  mapping  parameters.  All  error  codes  are  provided 
in  appendix  1. 
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Parameters 


Name 

Type 

Description 

bMapR 

boolean 

Set  mapping  of  the  R  in  AFGROW  Forman  Material 
to  be  active  (TRUE)  or  not  (FALSE). 

dRhiBorder 

double 

Upper  limit  of  the  R  range,  it  is  optional  value,  used 
only  when  mapping  set  to  be  TRUE. 

dRIoBorder 

double 

Lower  limit  of  the  R  range.  It  is  optional  value,  used 
only  when  mapping  set  to  be  TRUE. 

dRValue 

double 

R  value  that  the  R  range  will  be  mapped  to.  It  is  an 
optional  value,  used  only  when  mapping  set  to  be 
TRUE. 

long  SetUseRRange(boolean  bllserRRange,  VARIANT  dRValue,  VARIANT 
aCurveSegments) 

Description 

AFGROW  allows  users  to  define  up  to  two  fits  (three  segments  each)  as  a  function  of 
stress  ratio  (R).  This  function  sets  parameters  for  of  the  second  stress  ratio  fit. 

Returning  value 

A  long  value  that  specifies  the  returning  result  of  the  function.  If  it  is  not  equal  to  0,  the 
function  was  unable  to  set  the  parameters  for  the  second  R  fit.  All  error  codes  are 
provided  in  appendix  1 . 


Parameters 


Name 

Type 

Description 

bUseRRange 

boolean 

Set  the  R  cut  option  for  the  AFGROW  Forman 
material  data  to  be  active  (TRUE)  or  not  (FALSE). 

dRValue 

double 

Rcut  (AFGROW  uses  a  second  fit  when  R  is 
greater  than  this  value).  It  is  an  optional  value,  used 
only  when  UseRRange  is  set  to  be  TRUE. 

aCurveSegments 

VARIANT 

2-D  data  matrix  of  Forman  Equation  data  for  the 
second  data  fit.  It  is  an  optional  value,  used  only 
when  UseRRange  set  to  be  TRUE.  Each  row  in  this 
matrix  corresponds  to  one  segment  of  the  dadN 
curve  and  it  can  contain  data  for  no  more  than  three 
segments.  Each  segment  entry  consists  of: 

C:  Value  of  da/dN  when  R=0  and  Delta  K=1  (da/dN 
intercept) 

n:  Paris  Exponent  (in  this  case,  limit  in  da/dN  slope 
as  DK  approaches  0.0) 

Kcut:  Value  of  Delta  K  (at  R=0)  defining  the  highest 
Delta  K  allowed  for  the  given  segment  (upper 
segment  boundary) 

Note:  The  Kcut  value  for  the  last  defined  segment  is 
assumed  to  be  equal  to  the  plane  stress  fracture 
toughness  of  the  metal  being  analyzed. 
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1 1 .  TabularLookup  Material  Object  Available  Parameters  and 
Functions 


11.1  Properties 


Name 

Type 

Description 

aDataMatrix 

VARIANT 

2-D  data  matrix  of  Tabular  Lookup 
data.  The  first  row  in  this  matrix 
contains  the  range  of  R  values 
beginning  from  1  (not  0).  The  first 
column  contains  the  range  of  dadN 
values  beginning  from  1  (not  0). 

The  AK  (Kmax  if  R  <  0)  data  are 
entered  in  columns  below  their 
corresponding  R  value. 

Note:  The  data  value  in  position 
(0,0)  is  never  used.  The  Maximum 
size  of  the  matrix  is  26x1 1 
corresponding  to  a  25x10  AK  matrix. 

ddadNhi 

double 

Upper  limit  on  da/dN 

ddadNIo 

double 

Lower  limit  on  da/dN 

dKc 

double 

Plane  stress  fracture  toughness 

dKIc 

double 

Plane  strain  fracture  toughness 

dPoissonsRatio 

double 

Poisson's  ratio 

dRhi 

double 

Upper  limit  on  R  shift 

dRIo 

double 

Lower  limit  on  R  shift 

dThermalEx 

double 

Coefficient  of  thermal  expansion 

dThreshold 

double 

Delta  K  Threshold  Value  at  R=0 

sMaterialName 

BSTR 

Material  name 

dYield 

double 

Yield  strength 

dYoungModulus 

double 

Young’s  modulus 

1 1.2  Functions 
boolean  IsActive  () 

Description 

Determine  whether  this  material  object  is  active  in  AFGROW. 

Returning  value 

TRUE  if  Tabular  Lookup  Material  was  active  in  AFGROW;  otherwise,  FALSE. 


boolean  SetActive() 

Description 

Set  the  Tabular  Material  data  type  to  be  active  in  AFGROW. 

Returning  value 
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Return  TRUE  if  function  execution  was  successful;  otherwise,  FALSE. 


boolean  SetData(VARIANT  aDataMatrix,  double  dRIo,  double  dRhi,  double 
ddadNIo,  double  ddadNhi,  double  dThreshold) 

Description 

Set  the  Tabular  Lookup  Material  data  in  AFGROW. 

Returning  value 

Return  TRUE  if  the  function  execution  was  successful;  otherwise,  FALSE. 


Parameters 


Name 

Description 

aDataMatrix 

VARIANT 

2-D  data  matrix  of  Tabular  Lookup 
data.  The  first  row  in  this  matrix 
contains  the  range  of  R  values 
beginning  from  1  (not  0).  The  first 
column  contains  the  range  of  dadN 
values  beginning  from  1  (not  0). 

The  AK  (Kmax  if  R  <  0)  data  are 
entered  in  columns  below  their 
corresponding  R  value. 

Note:  The  data  value  in  position 
(0,0)  is  never  used.  The  Maximum 
size  of  the  matrix  is  26x1 1 
corresponding  to  a  25x10  AK  matrix. 

ddadNhi 

double 

Upper  limit  on  da/dN 

ddadNIo 

double 

Lower  limit  on  da/dN 

dRhi 

double 

Upper  limit  on  R  shift 

dRIo 

double 

Lower  limit  on  R  shift 

dThreshold 

double 

Delta  K  Threshold  Value  at  R=0 
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12.  NASGRO  Material  Object  Available  Parameters  and  Functions 


Functions 
boolean  IsActive  () 

Description 

Determine  whether  this  material  object  is  active  in  AFGROW. 

Returning  value 

TRUE  if  NASGRO  Material  is  active  in  AFGROW;  otherwise,  FALSE. 


boolean  SetActive(VARIANT  sMaterialName) 

Description 

Set  the  NASGRO  Material  data  type  to  be  active  in  AFGROW.  The  default,  or  previously 
set  NASGRO  material  data  will  be  used  if  the  optional  parameter  is  omitted.  Otherwise, 
AFGROW  will  try  to  select  required  material  from  NASGRO  material  database. 

Returning  value 

Return  TRUE  if  the  function  execution  was  successful;  otherwise,  FALSE. 


Parameters 


Name 

Type 

Description 

sMaterialName 

VARIANT 

AFGROW  NASGRO  material  data  code  (see 
appendix  10) 
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13.  Crack  Initiation  Object  Available  Parameters  and  Functions 


13.1  Properties 


Name 

Type 

Description 

aCyclicUserDefData 

VARIANT 

2-D  data  matrix  of  the  Cyclic 
Stress-Strain  data.  Maximum 
allowed  size  of  the  array  is  25x2. 

Each  row  of  the  array  contains  a 
strain  and  a  corresponding  stress 
value. 

aStrainLifeUserDefinedData 

VARIANT 

2-D  data  matrix  of  the  Strain-Life 
data.  Maximum  allowed  size  of  the 
array  is  25x2.  Each  row  of  the  array 
contains  a  strain  and  a 
corresponding  life  value.  The  first 
data  pair  must  be  the  strain  value 
for  failure  at  one  reversal  (life  is 
given  in  reversals  =  cycles/2). 

bUseCracklnitiation 

boolean 

Turn  ON  or  OFF  initiation  analysis 

dCyclicStrainExp 

double 

Cyclic  Strain  Hardening  Exponent 

dCyclicStrengthCoef 

double 

Cyclic  Strength  Coefficient 

dFatigueDuctCoef 

double 

Fatigue  Ductility  Coefficient 

dFatigueDuctExp 

double 

Fatigue  Ductility  Exponent 

dFatigueNotchConst 

double 

Fatigue  Notch  Constant 

dFatigueStrengthCoef 

double 

Fatigue  Strength  Coefficient 

dFatigueStrengthEsp 

double 

Fatigue  Strength  Exponent 

dNotchRadius 

double 

Notch  Radius  (Read-only  for  all 
cracks  at  hole  specimens) 

dStressConcFactor 

double 

Stress  concentration  factor  G|0Cai/CTef 

sMaterialName 

BSTR 

Material  name 

13.2  Functions 

DataType  GetCyclicDataType  () 

Description 

Determine  the  type  of  the  Cyclic  Stress-Strain  Initiation  data. 

Returning  value 

Gets  the  type  of  the  Cyclic  Stress-Strain  Initiation  data  (user  defined  or  not).  Available 
data  types  are  enumerated  in  DataType  (see  appendix  2). 

DataType  Get  GetStrainLifeDataType  Type  () 

Description 

Determine  the  type  of  the  Strain-Life  Initiation  data. 

Returning  value 
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Gets  type  of  the  Cyclic  Strain-Life  Initiation  data  (user  defined  or  not).  Available  data 
types  are  enumerated  in  DataType  (see  appendix  2). 


DataType  SetCyclicDataType  (DataType  nDataType,  [in,  optional]  VARIANT  aData) 

Description 

Set  the  type  of  the  Cyclic  Stress-Strain  Initiation  data  (see  appendix  2)  and,  if  applicable, 
any  user-defined  data. 

Returning  value 

Return  the  previous  type  of  the  data. 


Parameters 


Name 

BBH 

Description 

nDataType 

DataType 

Cyclic  Stress-Stain  Data  Type.  Available  data  types 
enumerated  in  DataType  (see  appendix  2). 

aData 

VARIANT 

2-D  data  matrix  of  the  Cyclic  Stress-Strain  data. 
Maximum  allowed  size  of  the  array  is  25x2. 

Each  row  of  the  array  contains  a  strain  and  a 
corresponding  stress  value.  Optional  parameter 
used  only  when  user  sets  User-Defined  data. 

DataType  SetStrainLifeDataType  (DataType  nDataType,  [in,  optional]  VARIANT 
aData) 

Description 

Set  a  type  of  the  Strain-Life  Initiation  data  (see  appendix  2)  and  if  applicable,  any  user- 
defined  data. 


Returning  value 

Return  previous  type  of  the  data. 


Parameters 


Name 

EBHI 

Description 

nDataType 

DataType 

Strain-Life  Data  Type.  Available  data  types 
enumerated  in  DataType  (see  appendix  2). 

aData 

VARIANT 

2-D  data  matrix  of  the  Strain-Life  data.  Maximum 
allowed  size  of  the  array  is  25x2.  Each  row  of  the 
array  contains  a  strain  and  a  corresponding  stress 
value.  The  first  pair  of  the  strain-life  values  must  be 
the  strain  value  for  failure  at  one  reversal  (life  is 
given  in  reversals  =  cycles/2).  Optional  parameter 
used  only  when  user  sets  User-Defined  data. 

14.  Retardation  Object  Available  Parameters  and  Functions 


14.1  Properties 


Name 


TyPe 


Description 
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dWheelerParam 

double 

Wheeler  retardation  model  shaping 
exponent.  Read  only 

dWillenborgParam 

double 

Willenborg  retardation  model  Shut¬ 
off  Overload  Ratio.  Read  only 

14.2  Functions 

AfgrowRetardationModels  GetActiveRetardationModel() 

Description 

Gets  the  Active  (Selected)  retardation  model  in  AFGROW. 

Returning  value 

Returns  the  Active  (Selected)  retardation  model  in  AFGROW.  AFGROW  retardation 
models  are  enumerated  in  AfgrowRetardationModels  data  type  (see  appendix  2). 


long  GetClosureModeIParam(double*  dParameter,  boolean*  bOpenLoadRatioAuto, 
double*  dOpen  Load  Ratio) 

(Ignore  pointers  in  Visual  Basic) 

Description 

Gets  the  Active  Closure  retardation  model  parameters. 

Returning  value 

Reserved  parameter,  always  equal  to  0. 


Parameters 


Name 

Description 

dParameter 

double* 

Closure  retardation  parameter 
(opening  load  ratio) 

bOpenLoadRatioAuto 

boolean* 

Used  to  specify  the  initial  crack 
opening  level  for  Closure 
Retardation  model.  If  This 
parameter  is  TRUE,  the  program 
uses  the  first  cycle  of  the  input 
spectrum  to  determine  the  Initial 
Opening  Load  Ratio  parameter.  If 
it  is  FALSE,  AFGROW  uses 
dOpenLoadRatio  parameter  as 
the  initial  crack  opening  level. 

dOpenLoadRatio 

double* 

Initial  crack  opening  level.  Used 
only  when  bOpenLoadRatioAuto 
is  FALSE. 

AfgrowRetardationModels  NoRetardation() 

Description 

Sets  no  retardation  in  AFGROW. 
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Returning  value 

The  previously  selected  retardation  model  in  AFGROW. 


AfgrowRetardationModels  SetClosureModel(VARIANT  dParameter,  VARIANT 
bOpenLoadRatioAuto,  VARIANT  dOpenLoadRatio) 

Description 

Sets  the  Closure  retardation  model  in  AFGROW. 

Returning  value 

The  previously  selected  retardation  model  in  AFGROW. 


Parameters 


Name  — 

Description 

dParameter 

VARIANT 

Closure  retardation  parameter 
(opening  load  ratio) 

bOpenLoadRatioAuto 

VARIANT 

Used  to  specify  initial  crack 
opening  level  for  Closure 
Retardation  model.  If  This 
parameter  is  TRUE,  program  uses 
first  cycle  of  the  input  spectrum  to 
determine  the  Initial  Opening  Load 
Ratio  parameter.  If  it  is  FALSE, 
AFGROW  expects  user  to  set 
dOpenLoadRatio  parameter  in  this 
function  and  will  use  it  as  the  initial 
crack  opening  level. 

dOpenLoadRatio 

VARIANT 

Initial  crack  opening  level.  Used 
only  when  bOpenLoadRatioAuto 
is  FALSE. 

AfgrowRetardationModels  SetWheelerModel(VARIANT  dParameter) 

Description 

Sets  the  Wheeler  retardation  model  in  AFGROW. 

Returning  value 

The  previously  selected  retardation  model  in  AFGROW. 


Parameters 


Name 

BESHHHHHHNHi 

Description 

dParameter 

VARIANT 

Wheeler  retardation  parameter 
(Wheeler  shaping  exponent  -  m) 

AfgrowRetardationModels  SetWillenborgModel(VARIANT  dParameter) 

Description 
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Sets  the  Willenborg  retardation  model  in  AFGROW. 


Returning  value 

The  previously  selected  retardation  model  in  AFGROW. 


Parameters 


Name 

Type 

Description 

d  Parameter 

VARIANT 

Willenborg  retardation  parameter 
(shut  off  overload  ratio) 
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15.  Output  Object  Parameters 


15.1  Properties 


Name 

EMHHHHI 

Description 

dBeta 

double 

Beta 

dCrackLength 

double 

Crack  length 

ddadN 

double 

Crack  Growth  Rate 

d  Delta  K 

double 

Delta  K 

dKres 

double 

Residual  K 

dPSX 

double 

Stress  State 

dREffective 

double 

Effective  Stress  Ratio  used  to 
calculate  da/dN  (after  any 
retardation  model  is  applied). 

dRK 

double 

K  min/K  max  Ratio 

nDimension 

CrackDirection 

j 

AFGROW  crack  growth  direction 
enumerated  in  CrackDirection  data 
type  (see  appendix  2). 

15.2  VB  sample 

Private  Sub  mAfgrow_PredictInfo (ByVal  Model  As  Afgrow.AfgrowModels , 
ByVal  dStress  As  Double,  ByVal  dRS tress  As  Double,  ByVal  dCycles  As 
Double,  ByVal  dPass  As  Long,  ByVal  iOutputlnfol  As  Object,  ByVal 
i0utputlnfo2  As  Object,  ByVal  iOutputInfo3  As  Object,  ByVal 
i0utputlnfo4  As  Object) 

Dim  temp  As  Double 

Dim  olnfo  As  Af grow, Output Inf olnt 

Set  olnfo  =  iOutputlnfol 
pBar. Value  5=  olnfo. dCrackLength 
If  nCount  <50  Then 

nCount  =  nCount  +  1 

CrLength (nCount)  =  CDbl (Format (olnfo. dCrackLength,  "00.000000”)) 
Cycles (nCount)  «  dCycles 
Beta (nCount)  =  olnfo. dBeta 
End  If 

Set  iOutputlnfo  «  Nothing 
Set  olnfo  sb  Nothing 
End  Sub 
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Appendix  1 :  Return  Codes 


Application  Object  -  Predict  Function  Return  Codes 


Number 

Error  Description 

-1 

Unknown  error 

0 

Normal  completion  of  the  Predict  routine 

1 

After  one  pass  of  the  spectrum,  growth  was  less  than  1.0e-13.  Program  halted 

2 

Maximum  Number  of  passes  exceeded 

3 

Crack  length  exceeded  stop  value 

4 

Cycle  count  exceeded  stop  value 

5 

Fracture  based  on  User-Defined  'Kmax'  Criteria 

No  Spectrum  file  specified...  Cannot  Predict! 

11 

Beta  table  has  zero  length...  Cannot  Predict! 

12  __ 

Repair  patch  applied  and  initiation  on...  Cannot  Predict! 

13 

Initiation  is  not  allowed  with  this  model...  Cannot  Predict! 

14 

NASGRO  equation  Rhi  value  is  to  large 

15 

Beta  correction  is  not  allowed  with  this  model.  Can  not  Predict 

16 

Residual  Stresses  are  not  allowed  with  this  model.  Can  not  Predict 

20 

Wrong  geometry  for  an  oblique  crack 

21 

The  initial  crack  length  in  the  thickness  direction  is  greater  than  the  input 
thickness.  Check  data. 

22 

Error  in  spectrum  file(s) 

Unable  to  open  plotfile 

24 

Error  in  initiation.  Predict  stopped 

25 

The  number  of  cycles  to  initiation  is  greater  than  2.e+9.  Predict  stopped 

26 

Not  enough  memory  to  allocate  spectrum 

27 

Only  a  BLOCKED  spectrum  may  have  more  than  one  (1)  cycle  per  stress  level 

28 

Program  termination  by  user 

The  total  number  of  spectrum  cycles  was  less  than  the  user-specified  cycle 
number  to  start  the  prediction 

30 

KIC  greater  than  KC 

Application 

Number 

0 

1 

2 

3 

4 

5 

6 

7 

8 


Object  -  SetLoad  Function  Return  Codes  _ 

Error  Description 

Normal  completion  of  the  SetLoad  routine 
Invalid  tension  ratio  value 

Invalid  bending  ratio  value _ 

Invalid  bearing  ratio  value 

This  model  does  not  have  a  multiple  loads  case  solution 
Filled  unloaded  hole  is  selected.  Cannot  set  load 

This  model  does  not  have  a  tension  load _ 

This  model  does  not  have  a  bending  load _ 

This  model  does  not  have  a  bearing  load 


User-Defined  Beta  Object  -  Interpolation  Function  Return  Codes 


Number 

Error  Description 

0 

Normal  completion  of  the  routine. 

1 

Wrong  AFGROW  model. 

2 

Four  points  interpolation  is  not  selected  in  AFGROW. 

3 

Crack  numbersl  and  2  must  have  'A'  value  that  is  less  than  or  equal  to  the 
initial  crack  depth. 

4 

Crack  numbers  3  and  4  must  have  'A'  value  that  is  greater  or  equal  to  95%  of 
the  thickness. 

5 

Crack  number  1  must  have  a  ’C'  value  that  is  less  than  or  equal  to  the  initial 
crack  length. 

6 

Crack  number  3  must  have  a  'C'  value  that  is  less  than  or  equal  to  the  initial 
crack  length. 

7 

Crack  number  3  must  have  a  'C'  value  that  is  less  than  crack  number  4  'C' 
value. 

8 

Crack  number  1  must  have  a  'C'  value  that  is  less  than  crack  number  2  'C' 
value. 

9 

Crack  length  value  is  wrong  (usually  less  or  equal  to  0) 

10 

Cannot  allocate  memory. 

11 

Linear  interpolation  is  not  selected  in  AFGROW. 

Forman  Material  Object  -  Function  Return  Codes 


Number 

Error  Description 

-1 

Unidentified  automation  error. 

0 

Normal  completion  of  routine. 

1 

R  switched  due  to  R-mapping  condition.  Not  a  critical  error,  function  finished. 

10 

R  low  border  value  in  R-mapping  routine  was  adjusted.  Usually,  when  R|0W  border  is 
out  of  the  bounds  set  by  Forman  R,owand  R  high.  Not  a  critical  error,  function 
finished. 

100 

R  wgh  border  value  in  R-mapping  routine  was  adjusted.  Usually,  when  Rhigh  border 
is  out  of  the  bounds  set  by  Forman  R|0werand  R  high.  Not  a  critical  error, 
function  finished. 

1000 

R  map  value  in  R-mapping  routine  was  adjusted.  Usually  when  R  map  is  out  of 
the  bounds  set  by  Forman  R^and  R  hioh  Not  a  critical  error,  function  finished. 

1001 

Rcut  value  that  determine  where  to  apply  second  data  fit  was  corrected. 

Usually  when  R  cut  is  out  of  the  borders  set  by  Forman  R|0werand  Rhigher.  Not 
critical  error,  function  was  finished. 

60 


Application 

Object  -  Return  Codes  for  Transition  Types 

Number 

Transition  Type 

0 

Transition  from  Part-Through  to  Through  Crack 

1 

Transition  from  Part-Through  to  Oblique  Through  Crack 

2 

Transition  from  Oblique  to  Strait  Crack 

3 

Transition  from  Internal  Through  to  Edge  Crack 

Application  Object  -  Return  Codes  for  Transition  Types 

Number 

Transition  Type 

0 

Transition  based  on  95%  of  the  thickness  penetration 

1 

Transition  based  on  100%  of  the  thickness  penetration 

2 

Transition  based  on  free  edge  touch  (internal  Through  Crack) 

3 

Transition  based  on  Kmax  criteria 

4 

Transition  based  on  Kle  criteria 

5 

Transition  based  on  shape  criteria  (Oblique  Crack) 

Application 

Object  -  Return  Codes  for  Fracture  Types 

Number 

Fracture  Type 

0 

Fracture  based  on '  Net  Section  Yield’  Criteria  (current  maximum  stress) 

1 

Fracture  based  on '  Net  Section  Yield'  Criteria  (residual  strength  requirement) 

2 

Fracture  based  on '  Kmax'  Criteria  (current  maximum  stress) 

3 

Fracture  based  on  '  Kmax'  Criteria  (residual  strength  requirement) 

4 

Fracture  based  on  free  edge  touch 

Application 

Object  -Return  Codes  for  GetSpectrumlnfo  function 

Number 

Fracture  Type 

0 

Normal  completion  of  the  routine 

1 

Error  in  the  spectrum  (sp3)  file 

2 

Unknown  subspectrum  file  type 

3 

Unable  to  find  subspectrum  file 

4 

Error  in  the  subspectrum  file 

Appendix  2:  AFGROW  Constants 


AFGROW  Models  (AfgrowModels) 


Value 

Name 

Description 

1000 

uPartThrough 

Part  Through  Crack  (user-defined) 

1010 

aCenterSEIlipticSurface 

Center  Semi  elliptic  Surface  Flaw 

1015 

aCenterSEIlipticEdgeSurface 

Center  Semi  elliptic  Edge  Surface  Flaw 

1020 

aCenterFEIlipticEmbedded 

Center  Full-elliptic  Embedded  Flaw 

1030 

aSingleComerAtHole 

Single  Corner  Crack  at  Hole 

1035 

aSingleCornerAtNotch 

Single  Corner  Crack  at  Notch 

1040 

aSingleSurfaceAtHole 

Single  Surface  Crack  at  Hole 

1045 

aSingleSurfaceAtNotch 

Single  Surface  Crack  at  Notch 

1050 

aDoubleComerAtHole 

Double  Comer  Crack  at  Hole 

1060  ~~ 

aDoubleSurfaceAtHole 

Double  Surface  Crack  at  Hole 

aSingleEdgeComer 

Single  Edge  Corner  Crack 

| 

aSigleComerlnLug 

Single  Corner  Crack  in  Lug 

1090 

aPartThroughlnPipe 

Part  Through  Crack  in  Pipe 

uThrough 

Through  Crack  (user-defined) 

aCenterThrough 

Center  Through  Crack 

aSingleThroughAtHole 

Single  Through  Crack  at  Hole 

aDoubleThroughAtHole 

Double  Through  Crack  at  Hole 

E  i  i 

aSingleThroughCrackAtNotch 

Single  Through  Crack  At  Notch 

aSingleEdgeThrough 

Single  Edge  Through  Crack 

aDoubleEdgeThrough 

Double  Edge  Through  Crack 

iii— 

aWOLCT 

WOL/CT  Specimen 

aSingleEdgelnLug 

Single  Edge  Crack  in  Lug 

2080 

aThroughlnRod 

Rod 

2090 

aThroughlnPipe 

Through  Crack  in  Pipe 

3010 

wCenterSEIlipticSurface 

Center  Semi  elliptic  Surface  Crack 

wSingleEdgeComer 

Single  Edge  Corner  Crack 

wlnternalAxiallnThickPipe 

Internal  Axial  Crack  in  Thick  Pipe 

3040 

wExtemalAxiallnThickPipe 

External  Axial  Crack  in  Thick  Pipe 

4010 

wCenterThrough 

Center  Through  Crack 

4020 

wSingleEdgeThrough 

Single  Edge  Through  Crack 

4030 

wDoubleEdgeThrough 

Double  Edge  Through  Crack 

4040 

wRadialEdgelnDisc 

Radial  Edge  Crack  in  Disk 

4050 

wAxialThroughlnThickPipe 

Axial  Through  Crack  in  Thick  Pipe 

Common  Crack  Growth  Specimen  Types  (WOL_CTtype) 


Value 

Name 

0 

WOL_TYPE 
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1  CTTYPE 


Types  of  Units  (AfgrowUnits) 


Value 

Name 

0 

UnitsEnglish 

1 

UnitsMetric 

Crack  Growth  Directions  (CrackDirection) 


Value 

Name 

0 

CXdirection 

1 

AYdirection 

Crack  Transition  Conditions  (CrackTransConditions) 


Value  — 

Name 

0 

KIcTransition 

1 

KleTransition 

Types  of  Beta  Correction  Data  (TypeOfBetaCorData) 


Value 

Name 

0 

NormalizedStress 

1 

BetaCorrectionFactors 

Types  of  Residual  Stress  Data  (CrackDirection) 


Value 

Name 

0 

Stress 

1 

ResidualK 

Residual  S 


ress  S1F  Table  Generation  Types  (TypeOfResSIFTableGeneration) 


Value 

Name 

0 

WeightFunction 

1 

Gausslntegration 

Types  of  M 

aterial  Data  Available  in  AFG 

Value 

Name 

0 

MaterialHarterT 

1 

MaterialWalker 

3 

MaterialForman 

4 

MaterialLookup 

5 

MaterialNASGRO 

Types  of  S 

F  Data  (DataType) 

Value 

Name 

0 

NotUserDefined 

1 

UserDefined 

ROW  (AfgrowMaterials) 


63 


Types  of  User-Defined  Beta  Interpolation  (Part-Through  Cracks) 
(TypeOfUserDefBetaPartThroughCracklnt) 


Value 

Name 

0 

Linear 

1 

FourPoints 

-1 

Error 

Types  of  Retardation  Models  (AfgrowRei 


Value 

Name 

0 

RetardNoRetardation 

1 

RetardWillenborgModel 

2 

RetardClosureModel 

3 

RetardWheelerModel 

ardationModels) 


Value 

Name 

0 

CrackGrowthlncrement 

1 

SpectrumCyclicIncrement 

2 

EachSpectrumStressLevel 
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Appendix  3:  AFGROW  Exceptions 


Number 

Exception  Description 

28 

AFGROW  is  executing  a  prediction,  cannot  change  any  parameters 

29 

Cannot  open  problem  definition  file 

30 

Wrong  Parameter 

31 

Unknown  Model 

32 

Cannot  set  this  parameter  in  AFGROW 

33 

34 

Beta  Correction  option  in  AFGROW  can  not  be  used  for  Weight  Function 
Stress  Intensity  Solution  models 

35 

This  model  is  not  a  User  defined  data  model 

36 

Cannot  select  material 

37 

This  material  data  type  is  not  active 

38 

Retardation  model  not  valid 

39 

This  retardation  model  is  not  active 
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Appendix  4:  Sample  VBA  Source  Code  (without  Events) 


Dim  mAfgrow  As  Afgrow. Application 
Dim  i  As  Integer 


Private  Sub  CommandButtonl_Click() 

Dim  Cycles  As  Double 
Dim  finale  As  Double 
Dim  finalA  As  Double 
Dim  final Ct  As  Double 
Dim  finalKc  As  Double 
Dim  finalKa  As  Double 
Dim  finalKct  As  Double 
Dim  result  As  Boolean 
i  =  3 

Set  mAfgrow  =  CreateObject ("Afgrow. Application") 

Do  While  Sheetl .Cells (i,  2)  >  0 

mAfgrow. Model  =  Sheetl. Cells (i,  6) 
mAfgrow. SMF  =  Sheetl. Cells (i,  2) 

mAfgrow. ConstAmplitudeSpectrum  (Sheetl. Cells (i,  3)) 
mAfgrow. CrackLengthA  =  Sheetl. Cells (i,  4) 
mAfgrow. CrackLengthC  =  Sheetl . Cells (i ,  5) 

result  =  mAf grow. RunFrozPredict (Cycles,  finale,  finalKc,  finalA, 
finalKa,  finalCt,  finalKct) 

Sheetl .Cells (i,  7)  =  Cycles 
Sheetl. Cells (i,  8)  =  finale 
Sheetl .Cells (i  +14,  2)  =  Cycles 
Sheetl .Cells (i  +  14,  3)  =  mAfgrow. SMF 
i  =  i  +  1 
Loop 

mAfgrow. Quit 

Set  mAfgrow  =  Nothing 

End  Sub 


Private  Sub  CommandButton2_Click() 
1  =  3 

Do  While  Sheetl .Cells (i,  2)  >0 
Sheetl. Cells (i,  7)  *  0 
Sheetl. Cells (i,  8)  =  0 
i  =  i  +  1 
Loop 
End  Sub 
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Appendix  5:  Sample  VBA  Source  Code  (with  Events) 

Public  WithEvents  mAfgrow  As  Afgrow. Application 
Public  i  As  Integer 


Private  Sub  mAfgrow_PredictFinished (ByVal  result  As  Integer,  ByVal 
dblCycles  As  DoubleT  ByVal  dblKc  As  Double,  ByVal  dblKa  As  Double , 
ByVal  dblKct  As  Double,  ByVal  dblC  As  Double,  ByVal  dblA  As  Double, 
ByVal  dblCt  As  Double) 

Sheetl.Cells (i,  7)  «  dblCycles 
i  =  i  +  1 

If  Sheetl.Cells {i,  2)  >  0  Then 
Call  Run 

Else:  •  . .  . 

mAfgrow. Quit 
Set  mAfgrow  =  Nothing 
End  If 
End  Sub 


Private  Sub  CommandButtonl_Click { ) 
i  =  6 

Set . mAfgrow  =  CreateObject { "afgrow. application" ) 

mAfgrow . Visible  «*  True 

Call  Run  .  4 

JEndSub  .  ■ 


Public  Sub  Run ()  4 

mAfgrow. Cons tAmplitudeSpectrum  {Sheetl.Cells  <i,  3) ) 
mAfgrow . Model  *  Sheetl.Cells (i,  4) 
mAfgrow. SMF  =  Sheetl.Cells (i,  2) 
mAfgrow . CrackLengthA  =  Sheetl.Cells (i,  5) 
mAfgrow . CrackLengthC  =  Sheet 1. Cells ( i ,  6% 
mAfgrow. RunPredict 
End  Sxib 
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Appendix  6:  Sample  VBA  Source  Code  (Using  Predict  Preferences) 

Public  WithEvents  mAfgrow  As  Afgrow. Application 

Public  prefs  As  PredictPreferences 

Public  i  As  Integer 

Public  j  As  Integer 

Dim  SpectrumFile  As  String 

Dim  answer  As  Boolean 


Private  Sub  mAfgrow_PredictFinished(ByVal  result  As  Integer,  ByVal 
dblCycles  As  Double,  ByVal  dblKc  As  Double,  ByVal  dblKa  As  Double, 

ByVal  dblKct  As  Double,  ByVal  dblC  As  Double,  ByVal  dblA  As  Double, 
ByVal  dblCt  As  Double) 

Sheetl. Cells (i,  7)  =  dblCycles 

If  result  =  0  Then 

SheetLJSells (i,  8)  =  "Completed  Normally" 

Elself  result  =  1  Then 

Sheetl. Cells (i,  8)  =  "After  one  pass  of  the  spectrum,  growth  was  less 
than  1.0e-13  Program  halted" 

Elself  result  =  2  Then 

Sheetl. Cells (i,  8)  =  "Maximum  Number  of  passes  exceeded" 

Elself  result  =  3  Then 

Sheet 1. Cells (i,  8)  =  "Crack  Length  Exceeded  Stop  Value" 

Elself  result  =  4  Then 

Sheetl. Cells (i,  8)  =  "Cycle  Count  Exceeded  Stop  Value" 

Elself  result  =  10  Then 

Sheetl .Cells <i,  8)  =  "No  Spectrum  file  specified...  Can  not  Predict" 
Elself  result  =  11  Then 

Sheetl. Cells (i,  8)  =  "Beta  table  has  zero  length...  Can  not  Predict" 
Elself  result  =  12  Then 

Sheetl. Cells (i,  8)  =  "Repair  patch  applied  and  initiation  on...  Can 
not  Predict!  " 

Elself  result  =  13  Then 

Sheetl .Cells  {i,  8!  =  "Initiation  is  not  allowed  with  this  model.  Can 
not  Predict!  " 

Elself  result  =  14  Then 

Sheetl. Cells (i,  8)  =  "NASGRO  equation  Rhi  value  is  to  large" 

Elself  result  =  20  Then 

Sheetl. Cells (i,  8)  =  "Wrong  geometry  for  an  oblique  crack" 

Elself  result  =  21  Then 

Sheetl . Cells (i ,  8)  =  "The  initial  crack  length  in  the  thickness 
direction  is  greater  than  the  input  thickness.  Check  data.." 

Elself  result  =  22  Then 

Sheetl . Cells (i,  8)  =  "Error  in  spectrum  file{s)" 

Elself  result  =  23  Then 

Sheetl. Cells(i,  8)  =  "Unable  to  open  plotfile" 

Elself  result  =  24  Then 

Sheetl. Cells (i,  8)  =  "Error  in  Initiation.  Predict  stopped" 

Elself  result  «  25  Then 

Sheetl. Cells (i,  8)  =  "The  number  of  cycles  to  initiation  is  greater 
than  2.e+9.  Predict  stopped" 

Elself  result  =  26  Then 

Sheetl. Cells (i,  8)  =  "Not  enough  memory  to  allocate  spectrum" 

Elself  result  =  27  Then 

Sheetl .Cells (i,  8)  =  "Only  a  BLOCKED  spectrum  may  have  more  than  one 
(1)  cycle  per  stress  level" 

Elself  result  =  28  Then 
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Sheet X. Cells (i,  8)  =  "Program  termination  by  user" 
Elself  result  =  -1  Then 

Sheetl. Cells  (i,  8)  »  "Unknown  Error"  •; 

End  If  *  ;  ~ 

i  =  i  +  1  ■>:’  ,  v 

If  Sheetl. Cells <i,  2)  0  Then  . 

CurrentBox . Text  -  CStr(i) 

Call  Run 

Else :  ,  "  .  -  ,  '  •'  . 

Aaanswer . *  mAfgrow. Quit 
Set  mAfgrow  =  Nothing 

Unload  UserForml  . . 

End  If 
End  Sub 


Private~Sub  CommandButtonl_Click ( ) 
i  =  CInt (StartBox.Text) 

CurrentBox .Text  =  CStr(i) J 
mAfgrow . Visible  -  True 
Call.  Run  •  - 

End  Sub : 


Private  Sub  CommandButton2_Click{) 

j  *  s  ■ .  -1 :  ■ 

Do  While  Sheetl . Cells (j,  2)  >  0 
Sheet 1. Cel Is (j ,  7)  ■  0 
Sheetl. Cells (j ,  8}  =  "  " 
j  =  j  +  1  ;m.', 

■Loop 

End  Sub  :  :"€ 


Private  Sub  CommandButton3_Click ( ) 
answer  =  mAfgrow. Quit 
Set  mAfgrow  *  Nothing 
Unload  UserForml 

End  Sub  v  '£ 


Private  Sub  UserForm_Initiali2e () 

SpectrumFile  =  Sheetl. Cells (3,  2) 

Set  mAfgrow  »  CreateObject ("Af grow. Application") 
answer  =  mAfgrow. OpenSpectrumFile (SpectrumFile) 

Set  prefs  *  mAfgrow. PredictPreferences 

Call  prefs . SetPropagationLimits  (True,  ,  >  ■  ,  1.5)  <r  "Call"  is  used  since 

this  function  returns  a  value  aAAA'vA;'- .  - 

prefs. bOutputToFile  =  True 
End  Sub 


Public  Sub  Run() 

mAfgrow. Model  =  Sheetl. Cells (i,  3) 
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mAfgrow.SMF  »  Sheet 1 . Cells (i ,  2) 
mAfgrow.CrackLengthA  =  Sheetl. Cells (i,  4) 
mAfgrow.CrackLengthC  =  Sheetl. Cells (i,  5) 
pref s . sOutputFileName  =  Sheetl . Cells (i ,  6) 
answer  ~  mAfgrow.RunPredict 
End  Sub 
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Appendix  7:  Sample  VBA  Source  Code  (Using  Beta  Correction 
Tables) 

Public  WithEvents  mAfgrow  As  Af grow. Application 
Public  prefs  As  PredictPreferences 
Public  betacorr  As  BetaCorrection 
Public  i  As  Integer 

Public  j  As  Integer  •' 

Dim  CArray(4,  2)  As  Double  ' •. 

Dim  SpectrumFile  As  String  ■ 

Dim  Middle  As  Variant  , 

Dim  answer  As  Boolean 


Private  Sub  mAfgrow_PredictFinished (ByVal  result  As  Integer,  ByVal 
dbl Cycles  As  Double,  ByVal  dblKc  As  Double,  ByVal  dblKa  As  Double, 

ByVal  dblKct  As  Double,  ByVal  dblC  As  Double,  ByVal  dblA  As  Double, 
ByVal  dblCt  As  Double) 

Sheetl.Cells (i,  7)  *  dblCycles 

If  result  =  0  Then 

Sheetl.Cells (i,  8)  =  "Completed  Normally" 

Elself  result  =  1  Then 

Sheetl .Cells (i,  8)  ;=  "After  one  pass  of  the  spectrum,  growth  was  less 
than  1.0e-13  Program  halted"  ■  # 

Elself  result  =  2  Then  § 

■  Sheetl.Cells (i,  8)  =  "Maximum  Number  of  passes  exceeded"  §§'  $ 

Elself  result  =  3  Then  ||; 

Sheetl.Cells (i,  8)  =  "Crack  Length  Exceeded  Stop  Value" 

Elself  result  =  4  Then 

Sheetl.Cells (i,  8)  =  "Cycle  Count  Exceeded  Stop  Value" 

Elself  result  =  10  Then 

Sheetl.Cells (i,  8)  =  "No  Spectrum  file  specified...  Can  not  Predict" 
Elself  result  =  11  Then 

v  Sheet! .Cells (i,  8)  =  "Beta  table  has  zero  length. . .  Can  not  Predict" 
Elself  result  =§12  Then 

Sheetl.Cells (i,  8)  =  "Repair  patch  applied  and  initiation  on. . .  Can 
not  Predict !  §:f|§- ' 

Elself  result  =  13  Then  ' 

Sheetl .Cells (i,  .  8)  =  "Initiation  is  not  allowed  with  this  model.  Can 
not  Predict  1  " 

Elself  result  =  14  Then 

Sheetl .Cells (i,  8)  *  "NASGRO  equation  Rhi  value  is  to  large" 

Elself  result  =  20  Then.  ’;- 

Sheetl.Cells (i,  8)  =  "Wrong  geometry  for  an  oblique  crack" 

Elself  result  =  21  Then 

'  Sheetl.Cells (i,  8)  =  "The  initial  crack  length  in  the  thickness 
direction  is  greater  than  the  input  thickness.  Check  data.." 

Elself  result  =  22  Then  ?i  ■ 

Sheetl.Cells (i,  8)  =  "Error  in  spectrum  file(s)"  ’ ' . 

Elself  result  =  23  Then 

Sheetl.Cells (i,  8}  =  "Unable  to  open  plotfile" 

Elself  result  =  24  Then 

Sheetl .Cells {i, .8)  =  "Error  in  Initiation.  Predict  stopped" 

Elself  result  *  25  Then  .-I  -'i.  ‘  .  .  •  ■ 

Sheetl.Cells (i,  8)  =  "The  number  of  cycles  to  initiation  is  greater 
than  2 .e+9 .  Predict  stopped" 
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Elself  result  =  26  Then 

Sheetl. Cells (i,  8)  =  "Not  enough  memory  to  allocate  spectrum" 

Elself  result  =  27  Then 

Sheetl. Cells (i,  8)  =  "Only  a  BLOCKED  spectrum  may  have  more  than  one 
(1)  cycle  per  stress  level" 

Elself  result  =  28  Then 

Sheetl. Cells (i,  8)  =  "Program  termination  by  user" 

Elself  result  =  -1  Then 

Sheetl. Cells (i,  8)  =  "Unknown  Error" 

End  If 

i  =  i  +  1 

If  Sheetl. Cells (i,  2)  >  0  Then 
CurrentBox . Text  =  CStr(i) 

Call  Run 
Else: 

answer  =  mAf grow. Quit 
Set  mAfgrow  =  Nothing 
Unload  UserForml 
End  If 
End  Sub 


Private  Sub  CommandButtonl_Click ( ) 
i  =  CInt (StartBox.Text) 

CurrentBox. Text  =  CStr(i) 
mAfgrow. Visible  =  True 
Call  Run 
End  Sub 


Private  Sub  CommandButton2_Click() 

3  =  6 

Do  While  Sheetl. Cells (j ,  2)  >0 
Sheetl. Cells (j ,  7)  =  0 
Sheetl. Cells (j ,  8)  =  "  " 
j  =  j  +  1 
Loop 
End  Sub 


Private  Sub  CommandButton3_Click () 
answer  =  mAfgrow. Quit 
Set  mAfgrow  =  Nothing 
Unload  UserForml 
End  Sub 


Private  Sub  UserForm_Initialize 0 
Dim  k  As  Integer 

SpectrumFile  =  Sheetl. Cells (3,  2) 

Set  mAfgrow  =  CreateObject ("Afgrow. Application") 
answer  =  mAfgrow. OpenSpectrumFile (SpectrumFile) 
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Set  -prefs  =  mAf grow . PredictPref erences 

Call  prefs .SetPropagationLimits (True,  ,  ,  ,  ,  1.5) 

prefs. bOutputToFile  =  True 

Set  betacorr  =  raAf grow. BetaCorrect ion 

mAf grow. visible  =  False 

End  Sub 


Public  Sub  Run() 

mAf grow. Model  =  Sheetl . Cells (i,  3) 
betacorr . bUseBetaCorrection  «  True 
betacorr . nTypeOf Data  *  Bet aCorrect ionFactors 
k  =  0  #  " 

Do  While  k  <  5 

CArray (k,  0)  =  Sheetl. Cells (16  +  k,  2) 

CArray (k,  1)  *  Sheetl. Cells (16  +  k,  3) 

CArraytk,  2)  =  sheetl. Cells (16  +  k,  4) 

*  '•  k  k  +  1  : 

Loop 

mAf grow. Model  =  aSingleCornerAtHole 
Middle  «  CArray 

betacorr . aBetaCorrectionData  =  Middle 

mAf  grow.  SMF  =  Sheetl.Cells (i,  2) 

mAf grow. CrackLengthA  =  Sheetl.Cells <i,  4)  -v 

mAf  grow .  CrackLengthC  - = .  Sheetl.Cells  (i;  5)  ;• 

prefs . sOutputFileName  =  Sheetl.Cells (i ,  6) 

answer  ■  mAf grow. RunPredict 

End  Sub 


Note:  Airays  in  visual 
BASIC  begin  with 
element  “zero,”  not  “one.” 
Arrays  dimensioned  as 
Array(4)  actually  contain 
5  elements  (0,1, 2,3 ,4) 
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Appendix  8:  Sample  VBA  Source  Code  (User-Defined  Betas  and 
Tabular  Crack  Growth  Rate) 


Public  WithEvents  mAfgrow  As  Afgrow. Application 

Public  prefs  As  PredictPreferences 

Public  user_beta  As  UserDef inedBeta 

Public  table_lookup  As  TabularLookupMaterial 

Public  i  As  Integer 

Public  j  As  Integer 

Public  k  As  Integer 

Dim  AArray(2)  As  Double 

Dim  CArray(2)  As  Double 

Dim  BaArray(2,  2)  As  Double 

Dim  BcArray(2,  2)  As  Double 

Dim  BTArray(5,  1)  As  Double 

Dim  KTable (25,  2)  As  Double 

Dim  SpectrumFile  As  String 

Dim  beta~result  As  Integer 

Dim  answer  As  Boolean 


Private  Sub  mA£grow_PredictFinished(ByVal  result  As  Integer,  ByVal 
dblCycles  As  Double,  ByVal  dblKc  As  Double,  ByVal  dblKa  As  Double, 

ByVal  dblKct  As  Double,  ByVal  dblC  As  Double,  ByVal  dblA  As  Double, 
ByVal  dblCt  As  Double) 

Sheetl. Cells (i,  6)  =  dblCycles 

If  result  =  0  Then 

Sheetl. Cells  (i,  7)  =  "Completed  Normally" 

Elself  result  =  1  Then 

Sheetl .Cells (i,  7)  =  "After  one  pass  of  the  spectrum,  growth  was  less 
than  1.0e-13  Program  halted" 

Elself  result  =  2  Then 

Sheetl. Cells (i,  7)  =  "Maximum  Number  of  passes  exceeded" 

Elself  result  =  3  Then 

Sheetl. Cells (i,  7)  =  "Crack  Length  Exceeded  Stop  Value" 

Elself  result  =  4  Then 

Sheetl. Cells (i,  7)  =  "Cycle  Count  Exceeded  Stop  Value" 

Elself  result  ■  10  Then 

Sheetl. Cells (i,  7)  =  "No  Spectrum  file  specified...  Can  not  Predict" 
Elself  result  =  11  Then 

Sheetl. Cells (i,  7)  =  "Beta  table  has  zero  length...  Can  not  Predict" 
Elself  result  =  12  Then 

Sheetl .Cells (i,  7)  =  "Repair  patch  applied  and  initiation  on...  Can 
not  Predict!  " 

Elself  result  =  13  Then 

Sheetl. Cells (i,  7)  =  "Initiation  is  not  allowed  with  this  model.  Can 
not  Predict !  " 

Elself  result  =  14  Then 

Sheetl .Cells (i,  7)  =  "NASGRO  equation  Rhi  value  is  to  large" 

Elself  result  =  20  Then 

Sheetl. Cells (i,  7)  =  "Wrong  geometry  for  an  oblique  crack" 

Elself  result  =  21  Then 

Sheetl. Cells (i,  7)  =  "The  initial  crack  length  in  the  thickness 
direction  is  greater  than  the  input  thickness.  Check  data.." 

Elself  result  =  22  Then 

Sheetl. Cells(i,  7)  =  "Error  in  spectrum  file(s)" 

Elself  result  =  23  Then 
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Sheetl .Cells (i,  7)  *  "Unable  to  open  plotfile" 

Elself  result  =  24  Then  ,  .  .  ■*  4 

Sheetl.Cells  (i,  7)  «  "Error  in  Initiation.  ' :>a.; • 

Elself  result  ■  25  Then 

;K  Sheetl.Cells (i,  7)  *  "The  number  of  cycles  to  initiation  is  greater 
than  2.e+9.  Predict  stopped" 

Elself  result  =  26  Then  fe  S’  ' 

:  Sheetl.Cells (i,  7)  =  "Not  enough  memory  to  allocate  spectrum" 

Elself  result  «  27  Then 

j  Sheetl .Cells (i,  7)  =  "Only  a  BLOCKED  spectrum  may  have  more  than  one 
(1)  cycle  per  stress  level" 

Elself  result  =  28  Then  : 

Sheetl.Cells (i,  7)  =  "Program  termination  by  user" 

Elself  result  »  -1  Then 

Sheetl .Cells (i,  7)  *  "Unknown  Error" 

End  If 

i  = ;  i  +  1 

If  Sheetl. Cells (i,  2)  >  0  Then 
CurrentBox .  Text  =  CStr(i) 

Call  Run 

Else:';  ^  ;:f 

answer  =  mAf grow. Quit  ’•  -  •; 

Set  mAfgrow  =  Nothing 
Unload  UserForml 

End  If  ;  ,/&M  ■  ,,  ^ 

End  Sub  .  .  /  •  i_  - ' 

Private  Sub  CommandButtonl_Click  ( }  ;■ 
i  ■  CInt {StartBox . Text ) 

CurrentBox. Text  =  CStr(i) 

Call  Run ,  -  :g  ■  p 

End  Sub 

Private  Sub  ComraandButton2_Cl ick { ) 

1 6-  ’/  . '  ■,  "...  5 

Do  While  Sheetl.Cells (j,  2)  >  0 
Sheetl.Cells (j ,  6}  *  0 
Sheetl.Cells ( j ,  7}  -  "  " 

j  >  j  +  i  •  21 •  '  '  •  '  •.  ■'  • 

LOOp  ;  .8 

End;  Sub  .  v 

Private  Sub  CommandButtbn3_Click() 
answer; .imAf  grow.  Quit 
■fffiiset  mAfgrow  =  Nothing 
Unload  UserForml 
End  Sub 

Private  Sub  UserForra_Initialize ( )  H: ; 

Dim  k  As  Integer 

SpectrumFile  *  Sheetl.Cells (3 ,  2) 

Set  mAfgrow  =  CreateObject { "Af grow. Application")  ^^33" 
answer  =  mAf  grow. OpenSpectrumFile (SpectrumFile) 

Set  prefs  =  mAfgrow. PredictPreferences 

Call  prefs . SetPropagationLimits  (True , y  ':%;iv:5jl; -  y% 

prefs . bOutputToFile  =  True 

Set  user_beta  =  mAfgrow. UserDefinedBeta 

Set  table_lookup  =  mAfgrow. SetTabularLookupMaterial 

.mAfgrow. Visible  =,  False 
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’set  the  user-defined  beta  information 
mAf grow. Model  =  uPart Through 

j  -  o 

Do  While  j  <  3 

CArray(j)  =  Sheet2  .Cells  (j  -+*5,  2) 
k  -  0 

Do  While  k  <  3 

AArray(k)  =  Sheet2 .Cells (4,  k  +  3) 

BaArray(j,  k)  =  Sheet2 .Cells (j  +5,  k  +  3) 

BcArray(j,  k)  *  Sheet2 . Cells (j  +  10,  k  +  3) 

k  -  k  +  1 

Loop 

j  *  j  +  1 

Loop 
j  =  0 

Do  While  j  <  6  v - 

BTArray(j,  0)  =  Sheet2  .Cells  (j  +  16,  2) 

BTArrayT},  1)  »  Sheet2 -Cells  (j  +  16,  3K/ 

j  »  j  +  1 

Loop  * 

betajresult  =  userJaeta.SetLinealnt (AArray,  CArray,  BaArra 
Dim  middle  As  Variant 
middle  =  BTArray 

userJbeta.aThroughCrackData  =  middle 

’Set  the  crack  growth  rate  data  using  tabular  look-up 
k  *  0 


If  (k  =  0  And  j  =  0)  Then 
KTable { j ,  k)  =  0# 

Else 

KTable (j,  k)  =  Sheet3 .Cells (j  +2,  k  +  2) 

End  If 

j  -  j  +  1 

Loop 

k  =  k  +  1 
Loop 

table_lookup.sMaterialName  =  Sheet3 -Cells (2,  6) 

Dim  kVar  As  Variant 
kVar  =  KTable 

Call  tableJLookup.SetData(kVar,  Sheet3 -Cells (8,  7),  Sheet3 -Cells (8,  6), 
Sheet3 -Cells (5,  7),  Sheet3 . Cells (5 ,  6),  Sheet3 -Cells (8,  9)) 
table_lookup . dKc  =  Sheet3 -Cells (5,  8) 
table^lookup.dKIc  =  Sheet3 -Cells (5 ,  9) 
table_lookup.dPoissonsRatio  «  Sheet3 -Cells (5,  10) 
table_lookup.dThermalEx  =  Sheet 3 . Cells ( 8 ,  8) 
table_lookup.dYield  »  Sheet3 .Cells (8,  10) 
table_lookup-dYoungModulus  -  Sheet3 -Cells (8,  11) 

End  Sub 

Public  Sub  RunO 

mAfgrow.SMF  *  Sheetl . Cells (i ,  2) 
mAfgrow.CrackLengthA  =  Sheetl. Cells (i,  3) 
mAf grow. CrackLengthC  =  Sheetl -Cells (i,  4) 
prefs -sOutputFileName  =  Sheetl. Cells ( i ,  5) 
answer  ■  mAf grow. RunPr edict 
End  Sub 


Do  While  k 
j  =  0 

Do  While  j 


<  3 


<  26 


The  tabular  crack-growth  rate  data  array  is 
setup  to  be  in  the  same  form  as  AFGROW 
uses  in  the  paste  to  Excel  option.  The  (0,0) 
array  element  is  not  used  by  AFGROW,  but  is 
used  as  a  label  (dadn/R)  to  let  users  know  that 
the  first  column  contains  the  da/dn  values  and 
the  first  row  contains  the  stress  ratio  (R)  data. 
BE  SURE  to  look  at  the  details  for  the  tabular 
lookup  interface  in  section  11. 


The  variable,  beta_result  is 
used  here  in  case  a  user 
would  want  to  check  the 
contents  of  the  value 
returned  by  this  function. 
The  “Call”  option  could 
also  have  been  used  if  there 
was  no  desire  to  save  the 
returned  error  code. 
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Appendix  9:  Sample  VBA  Source  Code  (Using  Predict  Info) 


Public  WithEvents  mAfgrow  As  Afgrow. Application 
Public  WithEvents  mAfgrow  As  Afgrow. Application 
Public  prefs  As  PredictPreferences 
Public  user_beta  As  UserDef inedBeta 
Public  table_lookup  As  TabularLookupMaterial 
Public  i  As  Integer 
Public  j  As  Integer 
Public  k  As  Integer 
Dim  Count  As  Integer 
Dim  AArray(2)  As  Double 
Dim  CArray(2)  As  Double 
Dim  Ba Array (2,  2)  As  Double 
Dim  BcArray(2,  2)  As  Double 
Dim  BTArray ( 5 ,  1)  As  Double 
Dim  KTable (25 ,  2)  As  Double 
Dim  SpectrumFile  As  String 
Dim  beta_result  As  Integer 
Dim  answer  As  Boolean 
Dim  NewRun  As  Boolean 


Private  Sub  mAfgrow_PredictFinished (ByVal  result  As  Integer,  ByVal 
dblCycles  As  Double,  ByVal  dblKc  As  Double,  ByVal  dblKa  As  Double, 

ByVal  dblKct  As  Double,  ByVal  dblC  As  Double,  ByVal  dblA  As  Double, 
ByVal  dblCt  As  Double) 

Sheetl. Cells (i,  6)  =  dblCycles 

If  result  =  0  Then 

Sheetl. Cells (i,  7}  =  "Completed  Normally" 

Elself  result  =  1  Then 

Sheetl. Cells (i,  7)  =  "After  one  pass  of  the  spectrum,  growth  was  less 
than  1.0e-13  Program  halted" 

Elself  result  =  2  Then 

Sheetl. Cells (i,  7)  =  "Maximum  Number  of  passes  exceeded" 

Elself  result  =  3  Then 

Sheetl. Cells (i,  7)  =  "Crack  Length  Exceeded  Stop  Value" 

Elself  result  =  4  Then 

Sheetl. Cells (i,  7)  =  "Cycle  Count  Exceeded  Stop  Value" 

Elself  result  =  10  Then 

Sheetl .Cells (i,  7)  =  "No  Spectrum  file  specified...  Can  not  Predict" 
Elself  result  =  11  Then 

Sheetl. Cells (i,  7)  =  "Beta  table  has  zero  length...  Can  not  Predict" 
Elself  result  =  12  Then 

Sheetl. Cells (i,  7)  =  "Repair  patch  applied  and  initiation  on...  Can 
not  Predict!  " 

Elself  result  =  13  Then 

Sheetl. Cells (i,  7)  =  "Initiation  is  not  allowed  with  this  model.  Can 
not  Predict !  " 

Elself  result  =  14  Then 

Sheetl. Cells (i,  7)  =  "NASGRO  equation  Rhi  value  is  to  large" 

Elself  result  =  20  Then 

Sheetl. Cells (i,  7)  =  "Wrong  geometry  for  an  oblique  crack" 

Elself  result  =  21  Then 

Sheetl . Cells (i ,  7)  =  "The  initial  crack  length  in  the  thickness 
direction  is  greater  than  the  input  thickness.  Check  data.." 

Elself  result  =  22  Then 

Sheetl. Cells (i,  7)  =  "Error  in  spectrum  file(s)" 


PredictFinished  is  an  event  that  belongs  to 
the  AFGROW  Application.  That  is  why  it  is 
associated  with  the  variable  -  mAfgrow. 

The  PredictFinished  event  is  found  in  the 
right  hand  pull-down  menu  (event  list)  when 
the  application  item  (m_Afgrow)  is  selected 
in  the  left  hand  pull-down  menu. 
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Elself  result  =  23  Then 

Sheetl.Celis (i,  7)  «  "Unable  to  open  plotfile”  '•*  :  ' 

Elself  result  =  24  Then 

f  Sheetl. Cells (i,  7)  =  "Error  in  Initiation.  Predict  stopped" 

Elself  result  «  25  Then 

Sheetl. Cells (i,  7)  =  "The  number  of  cycles  to  initiation  is  greater 
than  2.e+9.  Predict  stopped"  =  '* 

Elself  result  »  26  Then 

Sheetl .Cells (i ,  7  5  =  "Not  enough  memory  to  allocate  spectrum" 

Elself  result  =  27  Then  •' 

Sheetl. Cells {i,  7)  .»  "Only  a  BLOCKED  spectrum  may  have  more  than  one 
(1)  cycle  per  stress  level" 

Elself  result  »  28  Then 

Sheetl. Cells (i,  7)  *  "Program  termination  by  user" 

Elself  result  =  -1  Then 

Sheetl. Cells (i,  7)  =  "Unknown  Error" 

End  If 


Sheet4 .Cells (1,  7)  =  Count  — 
E-.  =  i  +  1 

If  Sheetl. Cells (i,  2)  >  0  Then 
CurrentBox . Text  =  CStr(i) 
Call  Run 

Else:  .■  < 

answer  =  mAfgrow. Quit 
^^i’i'riSefSmAfgrow^S  Nothing  'fri- 
Unload  UserForml 
End  If  H  .  -  | 

End  Sub 


Private  Sub  CoramandButtonl_Click { ) 
i=  Clnt ( StartBox . Text } 

CurrentBox .  Text  =  CStr  ( i  VS'l&s 
Call  Run 


End  Sub  ^ 

Private  Sub  CommandButton2_Click ( ) 

3  =  6  •  -.f 

Do  While  Sheetl .Cells (j ,  2)  >  0 
Sheetl. Cells ( j ,  6)  =  0 
Sheetl . Cells { j ,  7 )  -  "  ” 


3  ***! 


^  3  *  3 

Loop  . 

End  Sub 


Private  Sub  CommandButton3_Click  ( ) 

■  answer  =  mAf  grow.  Quit 

Set  mAfgrow  =  Nothing  / 

Unload  UserForml  / 

End  Sub  /  ' 


Predictlnfo  is  also  an  event  that  belongs  to 
the  AFGROW  Application.  That  is  why  it 
is  associated  with  the  variable  -  mAfgrow. 
The  Predictlnfo  event  is  found  in  the  right 
hand  pull-down  menu  (event  list)  when 
the  application  item  (m_Afgrow)  is 
selected  in  the  left  hand  pull-down  menu. 


Private  Sub  mAf grow_Predict Info (ByVal  Model  As  Long,  ByVal  dStress  As 
Double,  ByVal  dRStress  As  Double,  ByVal  dCycles  As  Double,  ByVal  dPass 
As  Long,  ByVal  iOutputlnfol  As  Object,  ByVal  i0utputlnfo2  As  Object, 

ByVal  i0utputlnfo3  As  Object,  ByVal  i0utputlnfo4  As  Object) 

Dim  iOutputl  As  Af grow. Output Inf Pint  _ 

Dim  i Output 2  As  Af  grow.  Outputlnf  oint  ~  Deftne  the  output  objects  -  In  this  case, 

s®t  i^tputl  =  lOutputlinfol  for  the  “C”  and  “A”  direction.  Remember, 

If  Model  <  2000  Then  Set  iOutput2  -  iOutputInfo2  ifthe  model  code  is  <2000,  ONLY  if 

If  NewRun  «  True  Then  there  is  an  “A”  direction. 
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Do  While  ( ( j  <  500)  Or  (Sheet4 . Cells (j 
Sheet4 .Cells (j  +  1,  1)  *  "  " 

Sheet4  .Cells  (j  +  1,  2)  =  "  M 

Sheet4. Cells  (j  +1,  3)  =  "  " 

Sheet4 .Cells (j  +  1,  4)  =  ”  " 

Sheet4. Cells (j  +  1,  5)  *  "  ” 

j  *  j  +  1 

Loop 

Count  *  0 
End  If 

NewRun  «  False 
Count  »  Count  +  1 

Sheet4 . Cells (Count  +1,  1)  =  dCycles 
Sheet4 .Cells (Count  +  1,  2)  ~  iOutputl.c 
Sheet4 .Cells (Count  +1,  3)  =  iOutputl.c 
If  Model  <  2000  Then 

Sheet4 .Cells (Count  +  1,  4)  =  iOutput2.< 
Sheet4 .Cells (Count  +  1,  5)  »  iOutput2.c 
End  If  x. 

Set  iOutputl  -  Nothing  ^ 

End  Sub 


Clears  the  data  from  the  previous 
analysis 


dCycles 

iOutputl .dCrackLength 
iOutputl .dBeta 

iOutput 2 .dCrackLength 
iOutput2 .dBeta 


Private  Sub  UserForm_Activate  ()  me  spreaasn 

Dim  k  As  Integer  - 

SpectrumFile  =  Sheetl. Cells (3,  2) 

Set  mAfgrow  =  CreateObject ( "Afgrow. Application” ) 
answer  =  mAfgrow. OpenSpectrumFile (SpectrumFile) 

Set  prefs  =  mAfgrow. PredictPreferences 

pref s .bOutputToFile  =  True 

Set  user_beta  =  mAfgrow.UserDef inedBeta 

Set  table^lookup  =  mAfgrow. SetTabularLookupMaterial 

mAfgrow. Visible  -  False 


In  this  case,  only  the  cycles,  crack  length, 
and  beta  information  is  being  written  to 
the  spreadsheet. 


'set  the  user-defined  beta  information 
mAfgrow. Model  =  uPartThrough 

j  -  0 

Do  While  j  <  3 

CArray(j)  =  Sheet2 .Cells (j  +5,  2) 
k  =  0 

Do  While  k  <  3 

AArray(k)  =  Sheet2 .Cells (4#  k  +  3) 

BaArray(j,  k)  ■  Sheet2 .Cells (j  +5,  k  +  3) 

BcArray(j,  k)  =  Sheet2 .Cells (j  +  10,  k  +  3) 

k  =  k  +  1 

Loop 

j  «  j  +  1 

Loop 

j  -  0 

Do  While  j  <6 

BTArray(j,  0)  =  Sheet2 .Cells (j  +  16,  2) 

BTArray(j,  1)  =  Sheet2 . Cells (j  +  16,  3) 

■j  -  j  +  1 

Loop 

beta_result  =  userJoeta.SetLinealnt (AArray,  CArray,  BaArray,  BcArray) 
Dim  middle  As  Variant 
middle  *  BTArray 

user  Jseta . aThroughCrackData  =  middle 

fSet  the  crack  growth  rate  data  using  tabular  look-up 
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k  =  0  ■  ""  . 

Do  While  k  <-'3 

j  =  0  It  ■ 

Do  While  j  <  26 

If  <k  *  0  And  j  -  0)  Then 

KTable (j,  k)  *  0#  >  ;  .  ■'* 

Else  •.  *  ••  __  n  ”*  -  •'  ..  :v 

KTable  ( j  ,  k)  =  Sheet3  .Cells  { j  +2,  k  +  2) 

End  If 

j .  *  j  +  1  •-  :  -  '  .j  •  •  ' .  '  -..J,..  •  : 

Loop 

k  =  k  +  1 

Loop  ..  /■',  ■ '  ■  ’  •;  ••  i'i'  ’’ 

table_lookup . sMaterialName  =  Sheet3 .Cells (2,  6) 

Dim  kvar  As  Variant 
kVar  *  KTable 

Call  table_lookup.SetData (kvar,  Sheet 3 .Cells {8 ,  7) ,  Sheet 3 . Cells  (8 ,  6) , 
:Sheet3..:.  Cells  (5,  7) , ' '  Sheet3 .  Ce  11s  (5 ,  ■  6)  ,  Sheet  3  .  Cel  Is  ( 8 ,  9) )  ' ;  M 
table_I55kup . dKc  »  Sheet3 .Cells (5,  8) 

table_lookup.dKIc  =  Sheet3 .Cells (5,  9)  Y'^f '•?: 

table_lookup.dPoissonsRatio  =  Sheet3 .Cells (5,  10) 

table_lookup . dThermalEx  =  Sheet3 .Cells (8,  8) 

table_lookup . dYield  =  Sheet3 .Cells (8,  10) 

table_lookup . dYoungModulus  =  Sheet3 .Cells (8,  II) 

End  Sub  ...  .  .  ■ ' 

Public  Sub  Run  0 

mAfgrow.SMF  =  Sheetl. Cells (i,  2) 
mAf grow. CrackLengthA  =  Sheetl .Cells <i,  3) 
mAf grow . CrackLengthC  =  Sheetl . Cells ( i ,  4) 
pref s . sOutputFileNarae  *  Sheetl. Cells (i,  5) 

NewRun  =  True 

answer  *>;■  mAf grow . RunPredict 
End  Sub 
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Appendix  10:  Material  Codes 

Harter  T  Material  Data  Codes 


Material;  Condition;  Environment' 

Code 

2024  T-3  LONG  CRACK  DATA 

1 

2024-T851  -  LONG  CRACK 

2 

6061-T651 1  EXTRUSION 

3 

7050  T74  PLATE 

4 

7075-T651 1  EXTRUSION 

5 

7075-T73  L-T  FORGING 

6 

7075-T73  L-T  [DRY  AIR] 

7 

7075-T73  T-L  FORGING 

8 

Ti-6-4  ALPHA-BETA  FORGING 

9 

Ti-6-4  AMS-4911G  ANNEALED 

10 

4340-150  KSI  FORGING 

11 

4340-180  KSI  FORGING 

12 

NASGRO  Material  Data  Codes 


Material;  Condition;  Environment* 

Code 

1A1  Iron,  allov  or  cast 

ASTM  Specification 

A536  Grd  80-55-06 

As  cast 

A1AC50AB1 

IB1  ASTM  SDec.  qrd.  Steel 

A10  Series 

A36 

Plt(Dyn  Klc,  <  500Hz);  LA,  HHA,  3%  NaCI 

B0CB10AB1 

ES  Weld  &  HAZ(Dyn  Klc,  <  500Hz);  LA, HHA,  3%  NaCI 

B0CZK1AB1 

A200  Series 

A203  Grd  E  (3.5%  Ni) 

Pit 

B2CE12AB1 

Pit;  -100F 

B2CE12LA7 

A216  Grd  WCC 

Casting 

B2GC51AB1 

A300  Series 

A302  Grd  B 

Pit 

B3AB12AB1 

A372Type  IV 

Forg 

B3GD21AB1 

A387  Grd  22,  Cl  2 

Pit 

B3IQ10AB1 

*  Unless  noted,  assume  Lab  Air  (LA)  environment  and  any  orientation  except  S-T,  S-L,  C-R,  C-L,  and  R-L. 
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A469  Cl  4 


Forg 


A469  Cl  5 


Forg 


A500  Series 
A508  CI2  &  CI3 


Forg 


A514  Typ  F 


Pit 


GMA  SR  Weld 


A517  Grd  F  (T1  Steel) 


Pit 


A533-B,  CI1  &  CI2 


Pit 


SMA  Weld 


A553  Typ  I 


Pit 


Pit;  -320F 


B1  ASTM  spec,  qrade  steel 


A500  Series 


A579  Grd  75  (12%  Ni) 


Forg 


A588  Grd  A  &  Grd  B 


Pit 


Pit;  3%NaCI,  >0.2  Hz 


A645  (5%  Ni) 


Pit 


Pit;  -320F 


Cl  AISI  -  SAE  Steel 


AISI  10xx-12xx  Steel 


Low  Carbon  1005-1012 


Hot  rolled  pit 


Low  Carbon  1015-1025 


Hot  rolled  pit 


AISI  43xx-48xx  Steel 


4330V  MOD 


180-200  UTS;  Pit  &  Forg 


200-220  UTS;  Pit  &  Forg 


220-240  UTS;  Pit  &  Forg 


4340 


160-180  UTS;  Pit  &  Forg 


180-200  UTS;  Pit  &  Forg;  HHA 


180-200  UTS;  Pit  &  Forg 


200-220  UTS;  Pit  &  Forg 


B4JE20AB1 


IB5BF10AB1 


B5BFC2AB1 


B5HD10AB1 


B5HDF1AB1 


B5QA12AB1 


B5QA12LA4 


IB5XA11AB1 


|B5XA11WB1 


B6GA12AB1 


B6GA12LA4 


IC4BS10AB1 


C4BT10AB1 


C4BU10AB1 


C4DC21AB1 


C4DD11AD1 


IC4DD21AB1 


C4DE11AB1 
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200-220  UTS;  Plt&Forg;  -50F 

C4DE11LB7 

220-240  UTS;  Plt&Forg 

C4DF11AB1 

220-240  UTS;  Plt&Forg;  -50F 

C4DF11LB7 

240-280  UTS;  Plt&Forg 

C4DG11AB1 

240-280  UTS;  Plt&Forg;  -50F 

C4DG11LB7 

TD1  Misc.  U.S.  Spec.  Grade  Steel 

SAE  Spec  Steel 

0030  Cast 

D5AC50AB1 

TE1  Trade/common  name  steel 

Ultra  Hiah  Strenath  Steel 

18  Ni  Maraging 

250  Grd;  Plt&Forg 

E1AD10AB1 

300  Grd;  Plt&Forg 

E1AE10AB1 

300M _ 

270-300  UTS;  Plt&Forg 

E1BF21AB1 

AF1410 

220-240  UTS;  Plt&Forg;  -65F 

E1CC12AA7 

220-240  UTS;  Plt&Forg;  LA,  HHA/ DW  >  1Hz 

E1CC12AB1 

D6AC 

220-240  UTS;  Plt&Forg;  Norm.  Klc(70);  -40F 

E1DD10AA8 

220-240  UTS;  Pit  &  Forg;  Nom.  Klc  (70) 

E1DD10AB1 

220-240  UTS;  Pit  &  Forg;  Nom.  Klc(70);  HHA/DW>0.1  Hz 

E1DD10AD1 

220-240  UTS;  Plt&Forg;  High  Klc (90) 

E1DJ10AB1 

HP-9-4-20 

190-210  UTS;  Pit  &  Forg;  L-T,  T-L;  HHA,  SW  >  1  Hz 

El EB23AB1 

190-210  UTS;  Plt&Forg;  L-T,  T-L;  -65F 

El  EB23AC7 

190-210  UTS;  GTAWeld  +  SR;  LA,  HHA,  SW  >  1  Hz 

El  ECB2WA1 

190-210  UTS;  GTAWeld  +  SR;  -65F 

E1ECB2AC7 

HP-9-4-30 

220-240  UTS;  Pit  &  Forg;  L-T,  T-L;  LA,  HHA,  SW  >  1  Hz 

E1GC23AB1 

220-240  UTS;  Plt&Forg;  L-T,  T-L;  -65F 

E1GC23AA7 

220-240  UTS;  Plt&Forg;  L-T,  T-L;  600F 

E1GC23AA14 

HY-180(10Ni) 

Pit  &  Forg 

E1IB13AB1 

Plt&Forg;  DW,ASW>0.1Hz 

El  IB13WA1 

Pit  &  Forg;  SW  >  0.1  Hz 

E1IB13WB1 

HY-TUF 

220-240  UTS;  VAR  Forg 

E1JB23AB1 

H-11  MOD 

240-260  UTS;  Plt&Forg 

E1LE23AB1 

TE1  Trade/Common  Name  Steel 

HY  80 

Pit 

E2AA13AB1 

Pit;  3.5%  NaCI  /  SW  >  0.1  Hz 


|E2AA13WB1 
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HY  130 

Pit 

E2CA13AB1 

Pit;  3.5%  NaCI  /  SW  >0.1  Hz 

E2CA13WB1 

GMA  Weld 

E2CAC1AB1 

SMA  Weld 

E2CAF1AB1 

Construction  Grade 

HT-80 

Pit 

E3BA13AB1 

SA  Weld 

E3BAH1AB1 

TF1  AISI  type  stainless  steel 

AISI  300  Series 

AISI  301/302 

Ann  Pit  &  Sht 

F3AA13AB1 

1/2  Hard  sht 

F3AC13AB1 

Full  HarcTsht 

F3AE13AB1 

AISI  304/304L 

Ann  Pit  &  Sht,  Cast;  550F  Air 

F3DA13AA13 

Ann  Pit  &  Sht,  Cast;  800F  Air,  >1Hz 

F3DA13AA16 

Ann  Pit  &  Sht,  Cast 

F3DA13AB1 

Ann  Pit  &  Sht,  Cast;  -320F  LN2 

F3DA13LA4 

SA  weld  (308  filler)  +  SR;  800F  Air,  >1  Hz 

F3DAH2AA16 

SA  weld  (308  filler)  +  SR 

F3DAH2AB1 

AISI  31 6/31 6L 

Ann  Pit  &  Sht,  Cast;  600F  Air 

F3KA13AA14 

Ann  Pit  &  Sht,  Cast;  800F  Air 

F3KA13AA16 

Ann  Pit  &  Sht,  Cast 

F3KA13AB1 

Ann  Pit  &  Sht,  Cast;  -452F  Lhe 

F3KA13LA2 

Ann  Pit  &  Sht,  Cast;  -320F  LN2 

F3KA13LA4 

Cast;  600F  Air 

F3KA50AA14  ! 

Cast 

F3KA50AB1  j 

Cast;  -453 F  Lhe 

F3KA50LA2 

Cast;  -320F  LN2 

F3KA50LA4 

SMA  weld  (316  filler)  +  SR;  800F  Air,  >1Hz 

F3KAH2AA1 6 

20%  CW  Pit  &  Sht 

F3KB13AB1 

AISI  400  Series 

AISI  430  VAR 

Ann  Rnd,  C-R 

F4LA16AB1 

AISI  440C  Steel 

Single  temper  450F/2hr,  T-L 

F4SE12AB1 

TGI  Misc.  CRES/heat  resistant  steel 

PHxx-x  Allovs 

PH13-8MO 

HI 000;  Pit,  Forg,  Extr 

G1AD13AB1 

HI 000;  Pit  &  Forg;  DW  &  SW,  >1Hz 

G1AD13WD1 

HI 050;  Plt&Forg 

G1AF13AB1 

HI 050;  Plt&Forg;  DW&SW,>0.1Hz 


|G1AF13WD1 
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xx-xPH  Allovs 


15-5PH 


H900;  Rnd,  C-R 


HI 025;  Rnd,  C-R 


HI 025;  Forg 


H1 100;  Rnd,  C-R 


17-4PH 


H900;  Pit,  L-T 


H900;  Pit,  T-L 


HI  050;  Pit 


HI 025;  Rnd,  C-L 


HI 025;  Cast;  HHA 


H1 100;  Pit;  HHA 


17-7PH 


TH1050;  Pit 


AMxxx  Alloys 


AM  350 


CRT;  Sht,  L-T 


AM  367 


SCT(850);  Sht 


Custom  xxx  Alloys 


Custom  455 


HI 000;  Pit  &  Forg 


HI 025;  Forg,  C-R 


Nitronic  xx  Alloys 


Nitronic  33 


Ann;  Pit 


Ann;  Pit;  -452F  Lhe 


Ann;  Pit;  -320F  LN2 


Nitronic  50 


Ann;  Pit 


Ann;  Pit;  -452F  Lhe 


Ann;  Pit;  -320F  LN2 


Nitronic  60 


HR,  CR;  Rnd  Rod 


fi 


HI  Hiah  temperature  steel 


Nickel  Chromium 


A286  (140  ksi) 


Pit  &  Sht;  600-800F 


Pit  &  Sht 


Forg,  L-T,  T-L,  L-R 


A286  (160  ksi) 


Pit  &  Sht;  600-800F 


Pit  &  Sht 


Forg.  rod,  L-R 


A286  (200  ksi  Bolt  Material) 


Forg.  rod,  L-R 


IG2AB16AB1 


G2AD16AB1 


G2AD23AB1 


|G2AF16AB1 


G2CB11AB1 


G2CB12AB1 


[G2CE13AB1 


G2CE19AB1 


G2CE50AD1 


G2CH13AD1 


|G5BD23AB1 


G5BE26AB1 


vawsem 


IG7AA13LA2 


|G7AA13LA4 


G7CA13AB1 


G7CA13LA2 


|G7CA13LA4 


G7DC18AB1 


H1AB13AA15 


|H1  AB13AB1 


H1AB23AB1 


IH1AC13AA15 


H1AC13AB1 


H1AC28AB1 


|H1AD28AB1 
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JBK-75 


ST-CR-A;  Pit,  T-L 


J1  Tool  Steel 


AISI  Tool  Steel 


M-50 


61-63  Rc;  Pit 


T1(18-4-1) 


60-63  Rc;  Pit 


I  JUKI  0AB1 


IJ1MA10AB1 


mvEmm 


Series  aluminum 


2000  Series 

2014-T6 

Pit  &  Sht; 

L-T 

f 

Pit  &  Sht 

;  T-L 

1 

2014-T651 — 

Pit  &  Sht 

L-T  1 

Pit  &  Sht 

T-L  1 

Pit  &  Sht 

GTAWeld  1 

Pit  &  Sht 

GTAWeld,  SR  1 

2020-T651 

Pit  &  Sht; 

L-T 

1 

Pit  &  Sht; 

T-L 

] 

2024-T3 

Clad,  Pit  &  Sht; 

L-T;  LA  &  HHA  1 

Clad,  Pit  &  Sht; 

T-L;  LA  &  HHA  1 

Clad,  Pit  &  Sht; 

L-T;  DW  1 

Clad,  Pit  &  Sht; 

T-L;  DW  1 

2024-T351 

Pit  &  Sht 

L-T 

300F  to  400F  Air  1 

Pit  &  Sht 

L-T 

LA  &  HHA  1 

Pit  &  Sht 

T-L 

LA  &  HHA  1 

2024-T351 1 

Extr;  L-T;  LA&HHA  1 

2024-T62 

Pit  &  Sht 

L-T 

LA,  HHA  &  ASW  1 

Pit  &  Sht 

T-L 

LA,  HHA  &  ASW  1 

2024-T81 

Pit  &  Sht 

L-T 

350F  Air  1 

Pit  &  Sht 

L-T  1 

Pit  &  Sht 

L-T 

DA  1 

Pit  &  Sht 

L-T 

HHA  1 

Pit  &  Sht 

T-L 

350F  Air  1 

Pit  &  Sht 

T-L 

2024-T851 

Pit  &  Sht 

T-L 

;  300F  to  350F  Air 

Pit  &  Sht 

L-T  &  T-L;  LA,  DA,  JP-4 

Pit  &  Sht 

L-T  &  T-L  3.5%  NaCI 

2024-T852 

Forg;  L-T  &  T-L  ,  LA  &  DA 


M2EC31AB1 


M2EG12AB1 


M2EI11AA11 


M2EI11AB1 


M2EI11AC1 


M2EI11AD1 


M2EI12AA11 


M2EI12AB1 


M2EJ12AA1 1 


M2EJ13AB1 


M2EJ13WB1 


M2EK23AB1 
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2024-T861 

Pit  &  Sht;  L-T;  300F  to  400F  Air 

M2EL1 1AA11 

Pit  &  Sht;  L-T;  LA  &  HHA 

M2EL11AB1 

Pit  &  Sht;  T-L 

M2EL12AB1 

2048-T851 

Pit  &  Sht;  L-T;  LA,  DA 

M2FC11AB1 

Pit  &  Sht;  T-L;  LA,  DA 

M2FC12AB1 

2124-T851 

Pit  &  Sht;  L-T;  1 20F  to  350F  Air 

M2GC1 1AA10 

Pit  &  Sht;  L-T;  LA,  DA,  HHA 

M2GC11AB1 

Pit  &  Sht;  T-L;  300F  -  400F  Air 

M2GC12AA11 

Pit  &  Sht;  T-L;  LA,  HHA 

M2GC12AB1 

Pit  &  Sht;  T-L;  -200F  to  -1 50F  GN2 

M2GC12GB6 

Pit  &  Sht;  S-T,  S-L;  LA,  HHA 

M2GC15AB1 

2219-T62 

Pit  &  Sht;  L-T 

M2IA11AB1 

Plt&Sht;  L-T  &  T-L;  350FAir 

M2IA13AA1 1 

Pit  &  Sht;  T-L 

M2IA12AB1 

Pit  &  Sht;  L-T  &  T-L;  -320F  LN2 

M2IA13LA4 

2219-T851 

Pit  &  Sht;  L-T,  LA,  DA 

M2IC11AB1 

Plt&Sht;  T-L;  LA,  DA 

M2IC12AB1 

2219-T87 

Pit  &  Sht;  L-T;  300F  to  350F  Air 

M2IF11AA11 

Pit  &  Sht;  L-T 

M2IF11AB1 

Pit  &  Sht;  L-T;  -320F  LN2 

M2IF11LA4 

Pit  &  Sht;  T-L;  300F  to  350F  Air 

M2IF12AA11 

Plt&Sht;  T-L 

M2IF12AB1 

Pit  &  Sht;  T-L;  -320F  LN2 

M2IF12LA4 

Plt&Sht;  GTA weld,  PAR 

M2IFB1AB1 

Pit  &  Sht;  GTA  weld,  PAR;  -320F  LN2 

M2IFB1LA4 

2324-T39 

Pit  &  Sht;  L-T 

M2JA11AB1 

2090-T8E41 

Pit  &  Sht;  L-T 

M2PA11AB1 

5000  Series 

5083-0 

Pit;  T-L 

M5BA12AB1 

6000  Series 

6061 -T6 

Pit;  T-L 

M6AB13AB1 

Pit;  GTA  weld,  PAR 

M6ABA1AB1 

6061-T651 

Pit;  L-T  &  T-L  300F  Air 

M6AC13AA10 

Pit;  L-T  &  T-L 

M6AC13AB1 

6063-T5 

Plt&Sht;  T-L;  LA 


|M6BA1 2AB1 
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7005-T6  &  T63 


Pit  &  Sht;  L-T 


Pit  &  Sht;  T-L 


7010-T73651 


Pit  &  Sht;  L-T  &  L-S 


7050-T7351 1 


Extr;  L-T;  LA,  H  HA,  DA 


7050-T736  &  T74 


7050-T73652  &  T7452 


Forg;  L-T 


Forg;  T-L 


7050-T7651 


Pit  &  Sht;  L-T;  LA  &  HHA 


Pit  &  Sht;  T-L 


7050-T76511 


Extr;  L-T;  LA  &  HHA 


Extr;  T-L 


7000  Series 


7075-T6 


Pit,  Sht  &  Clad;;  L-T  &  T-L;  LA 


Pit,  Sht  &  Clad;;  L-T  &  T-L;  HHA 


7075-T651 


Pit  &  Sht;  L-T;  LA,  DA 


Pit  &  Sht;  L-T;  HHA 


Pit  &  Sht;  L-T;  3.5%  NaCI 


Pit  &  Sht;  T-L;  DW 


Pit  &  Sht;  S-T 


7075-T6510 


Extr;  L-T;  LA  &  DA 


7075-T651 1 


Extr;  L-T;  LA  &  HHA 


Extr;  T-L 


7075-T73 


Pit  &  Sht;  L-T;  LA,  DA,  HHA 


|M7BA11AB1 


M7BA12AB1 


Forg;  L-T 

M7GI21AB1 

Forg;  T-L 

M7GI22AB1 

7050-T73651  &T7451 

Pit  &  Sht;  L-T;  LA  &  HHA 

M7GJ11AB1 

Pit  &  Sht;  L-T;  DA 

M7GJ11AC1 

Pit  &  ShTT  T-L;  LA  &  HHA 

M7GJ12AB1 

Pit  &  Sht;  T-L;  DA 

M7GJ12AC1 

Pit  &  Sht;  S-T 

M7GJ15AB1 

7050-T7451 1 

Extr;  L-T;  LA  &  DW 

M7GL31AB1  j 

|M7GM21AB1 


|M7GM22AB1 


M7GQ11AB1 


|M7GQ12AB1 


M7GS31AB1 


IM7GS32AB1 


IM7HA13AB1 


|M7HA13AD1 


M7HB11AB1 


M7HB11AD1 


|M7HB11WB1 


M7HB13WA1 


M7HB15AB1 


IM7HD31AB1 


|M7HD32AB1 


M7HG11AB1 
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7075-T7351 

Pit  &  Sht 

L-T 

M7HH11AB1 

Pit  &  Sht 

L-T; 

DA 

M7HH11AC1 

Pit  &  Sht 

L-T; 

HHA 

M7HH11AD1 

Pit  &  Sht 

T-L; 

LA  &  DA 

M7HH12AB1 

Pit  &  Sht 

;  S-T; 

LA 

M7HH15AB1 

7075-T73510 


Extr;  L-T;  LA 


7075-T7351 1 


Extr;  L-T;  LA,  DA,  HHA 


7075-T7352 


Pit,  Sht  &  Forg;  L-T;  LA  &  DA 


Pit,  Sht  &  Forg;  T-L;  LA  &  DA 


7075-T7651 


Pit  &  Sht;  L-T;  LA  &  DA 


Plt&  Sht;  T-L;  LA  &  DA 


7079-T651 


Pit  &  Sht;  L-T 


7000  Series 


7149-T73511 


Extr;  L-T;  LA 


Extr;  T-L;  LA 


7178-T6  &  T651 


Pit  &  Sht;  L-T;  LA  &  HHA 


Pit  &  Sht;  T-L;  LA  &  HHA 


7178-T7651 


Pit  &  Sht;  L-T  _ 


Pit  &  Sht;  T-L 


7475-T61 


Pit,  Sht,  Clad;  L-T;  LA,  DA,  HHA 


Pit,  Sht,  Clad;  T-L;  LA,  DA,  HHA 


7475-T651 


Pit  &  Sht;  L-T;  LA,  DA,  HHA 


7475-T7351 


Pit  &  Sht;  L-T;  LA,  DA,  HHA,  DW 


Pit  &  Sht;  T-L;  LA,  DA,  HHA 


7475-T7651 


Pit  &  Sht;  L-T;  LA,  DA,  HHA,  DW,  3.5%NaCI 


01  Misc.  and  cast  aluminum 


300  Series  cast 


A356-T60 


Cast 


PI  Titanium  allovs 


Ti  Unalloyed 


Ti-55 


Pit  &  Sht  _ 


Pit  &  Sht;  DW  &  SW 


M7HK11AB1 


|M7HK12AB1 


M7HM11AB1 


M7HM12AB1 


1M7NA31AB1 


|M7NA32AB1 


M7RA11AB1 


|M7RA12AB1 


M7RF11AB1 


|M7RF12AB1 


IM7TB11AB1 


M7TB12AB1 


|M7TF11AB1 


|M7TF12AB1 


M7TJ11AB1 


[P1AA13AB1 


P1AA13WA1 
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Ti-70 


Pit  &  Sht 


Pit  &  Sht;  DW  &  SW 


ISBHHOETE 


P1CA13AB1 


IP1CA13WA1 


Ti-2.5  Cu;  STA 


Sht;  LA,  HHA,  DW 


Ternary  Alloys 


Ti-5Al-2.5Sn;  Annealed 


Sht;  LA,  HHA,  DW 


Ti-5AI-2.5Sn  (ELI);  Annealed 


Forg 


Forg;  -423F  LH2 


Ti-3AI-2.5V;  CW,  SR(750F) 


Extr 


Ti-6AI-4\T(MA)  _ 


Pit  &  Sht,  -100F  _ 


Pit  &  Sht 


Forg  _ 


Extr 


TN6AI-4V;  BA(1 900F/.5h  +  1 325F/2h) 


Pit  &  Sht;  LA,  DA,  3.5%  NaCI 


Forg;  LA,  DA,  HHA,  3.5%  NaCI 


Ti-6AI-4V;  RA 


Sht;  L-T;  LA, DA, HHA, DW,  3.5%  NaCI 


Sht;  T-L;  LA, DA, HHA, DW,  3.5%  NaCI 


Pit;  -100F  _ 


Pit;  LA,  DA,  HHA,  DW 


Forg;  LA,  DA,  HHA,  3.5%  NaCI 


Ti-6AI-4V;  ST(1 750F)  +  A(1 000F/4h) 


Pit  &  Sht;  SR(1000F/4h) 


Pit  &  Sht;  SR(1000F/8h) 


Pit  &  Sht;  SR(1000F/4h);  -320F  LN2 


Forg;  SR(1000F/4h) 


Forg;  SR(1000F/4h);  -320F  LN2 


GTAWeld;  SR;  thk<0.2" 


GTAWeld;  SR;  thk>=0.2" 


Ti-6AI-4V;  ELI;  BA(1900F/.5h)  +  1325F/2h) 


Pit  &  sht;  LA,  3.5%  NaCI 


Ti-6AI-4V  (ELI)  RA 


Pit  _ 


Forg;  -100F 


Forg  _ 


Forg;  -452F  LHe 


Forg;  -320FLN2 


Forg;  EB  welded,  SR;  weldline 


Forg;  EB  welded,  SR;  weldline;  -320F  LN2 


Forg;  EB  welded,  SR;  HAZ 


Forg;  EB  welded,  SR;  HAZ;  -320F  LN2 


[P3CB23AB1 


P3CB23LA3 


IP3EA13AA7 


P3EA13AB1 


P3EA23AB1 


|P3EA33AB1 


|P3EB12AB1 


|P3EB23AB1 


P3EC11AB1 


P3EC12AB1 


P3EC13AA7 


P3EC13AB1 


P3EC23AB1 


IP3ED13AA1 


IP3ED13AB1 


P3ED13LA4 


IP3ED20AB1 


|P3ED20LA4 


P3EDB2AB1A 


P3EDB2AB1B 


IP3EM13AB1 


P3EM23AA7 


P3EM23AB1 


P3EM23LA2 


P3EM23LA4 


P3EMD2AB1 


P3EMD2LA4 


P3EMD8AB1 


|P3EMD8LA4 
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Quaternary  Alloys 


Ti-4.5AI-5Mo-1.5Cr 


Pit;  LA,  3.5%  NaCI 


Ti-8AI-1Mo-1V 


Sht 


Ti-6AI-6V-2Sn 

MA 

Pit,  Forg,  Extr; 

LA,  DA,  HHA,  DW 

Ti-6AI-6V-2Sn 

RA 

Pit 

Ti-6AI-6V-2Sn 

BA 

Pit 

Ti-6AI-6V-2Sn 

ST(1600F);  A(1000F/6h) 

Forg;  -65F 


Forg;  300F 


Forg;  LATDA,  HHA 


Ti-10V-2Fe-3AI 


STA(140-160  UTS,  70Klc)  Pit  &  Forg 


STA(160-180  UTS,  60Klc)  Pit  &  Forg 


STA(1 80-200  UTS,  40Klc)  Pit  &  Forg 


STA(1 80-200  UTS,  30Klc)  Pit  &  Forg 


STA(1 80-200  UTS,  25Klc)  Forg 


Ti-6A;-2Zn-2Sn-2Mo-2Cr  (ST  or  STA) 


Pit;  HHA 


Q1  Ni  allovs/superalloys 


Hastellov  Alloys 


Hastelloy  B 


Rnd  Rod 


Hastelloy  X-280;  ST(21 50F) 


Pit;  600-800F  Air 


Pit;  1 000-1 200F  Air;  >.67Hz 


Pit 


Inconel  Alloys 


Inconel  600 


Pit  &  Sht;  1000F 


Pit  &  Sht;  7 5-800 F 


Inconel  625 


Pit  &  Sht;  600F 


Pit  &  Sht;  800F 


Pit  &  Sht;  1000F 


Pit  &  Sht; 


Inconel  706;  ST(1 800-1 950F);  A(1375F/8h;  1150F/5-8h) 


Forg  &  Extr 


Forg&Extr;  -452F  Lhe 


ST  Pit -GTA  weld -STA 


IP4DD21AA7 


P4DD21AA10 


P4DD21AB1 


IP4MD23AB1 


P4MF23AB1 


P4MG13AB1 


P4MG20AB1 


P4MG23AB1 


IQ1QA10AA15 


Q1QA10AA19 


Q1QA10AB1 


|Q3AB10AA18 


Q3AB10AB1 


IQ3EA10AA14 


Q3EA10AA16 


Q3EA10AA18 


Q3EA10AB1 


Q3JB33AB1 


Q3JB33LA2 


Q3JBB3AB1 


Inconel  718;  ST(1 700-1 850F)  +  A(1325F/8h  +  1150F/10h) 


Pit;  600F  air,  >.3Hz 


Pit;  800F  air,  >.3Hz 


Pit;  1000F  air,  >.3Hz 
Sht  (t<.25") 


Pit 


Forg 


Forg;  300F  air,  >.3Hz 


Forg;  600F  air,  >.3Hz 


Forg;  800F  air,  >.3Hz 


Forg;  1000F  air,  >.3Hz 


GTA  weld-STA;  600F  air,  >.6Hz 


GTA  weld-STA;  800F  air,  >.6Hz 


GTA  weld-STA;  1 000F  air,  >.6Hz 


ST  plt-GTA  weld-aged 


ST  plt-GTA  weld-aged;  -320F  LN2 


ST  plt-EB  weld-aged 


ST  plt-EB  weld-aged;  -320F  LN2 


Inconel  718;  ST(1900F)  +  A(1400F/10h  +  1200F/10h) 


Pit;  -320F  LN2 


Pit;  600F  air;  >.6Hz 


Pit  _ 


Pit;  1000F  air;  >.6Hz  _ 


Inconel  718;  ST(2000F)  +  A(1325F/4h  +  1150F/16h) 


Pit;  800F  air;  >.2Hz  _ 


Pit;  1000F  air;  >.6Hz 


Pit 


GTA  weld-STA;  600F  air,  >.6Hz 


GTA  weld-STA;  800F  air,  >.6Hz 


GTA  weld-STA;  1 000F  air,  >.6Hz 


GTA  weld-STA 


Inconel  718,  Bolt  material 


1 85  ksi  UTS  Bolts 


225  ksi  UTS  Bolts 


Inconel  X-750;  ST(2100F)  +  A(1550F/24h  +  1300F/20h) 


Pit;  600F  air,  >.6Hz  _ 


Pit;  800F  air,  >.6Hz 


Pit;  1000F  air,  >.6Hz 


Pit  &  Forg  _ 


Forg;  -452F  Lhe 


Rene  and  Udimet  Alloys 


Rene  41;  ST(1950F)  +  A(1400F/16h) 


Pit  &  Forg  _ 


Forg;  HOOF  air  _ 


I  Forg;  1200F  air 


IQ3LB11AA14 


Q3LB11AA16 


Q3LB13AA18 

Q3LB13AB1A 


Q3LB13AB1B 


Q3LB23AB1 


Q3LB26AA1 0 


Q3LB26AA1 4 


Q3LB26AA16 


Q3LB26AA18 


Q3LBB3AA14 


Q3LBB3AA16 


Q3LBB3AA18 


Q3LBB3AB1 


Q3LBB3LA4 


Q3LBD3AB1 


Q3LBD3LA4 


IQ3LC10LA4 


Q3LC11AA14 


Q3LC11AB1 


Q3LC12AA18 


IQ3LE11AA16 


Q3LE13AA18 


Q3LE13AB1 


Q3LEB3AA14 


Q3LEB3AA16 


Q3LEB3AA18 


Q3LEB3AB1 


IQ3LP18AB1 


Q3LQ18AB1 


IQ3SD10AA14 


Q3SD10AA16 


Q3SD10AA18 


Q3SD26AB1 


Q3SD26LA2 


Q7AD13AB1 


Q7AD26AA1 9 
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